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ABSTRACT 

Heat  sinks  consisting  of  individual  fins  and  arrays  of  fins  are  used 
extensively  throughout  the  Navy  and  industry.  The  fins  serve  to  increase  the 
surface  area  thorough  which  heat  is  transferred  to  the  surrounding 
environment  by  natural  convection.  Extended  surfaces  or  fins  are  commonly 
found  on  electronic  components  ranging  from  power  supplies  to  transformers. 
The  dissipation  and  subsequent  rejection  of  potentially  destructive  self 
produced  heat  is  an  important  aspect  of  electronic  equipment  design. 

Fin  design  theory  is  examined  starting  with  the  optimization  of  individual 
fin  dimensions.  The  insights  obtained  are  utilized  in  an  investigation  of  the 
optimal  number  and  spacing  of  elements  in  an  array  of  fins.  The  results  are 
implemented  in  a  computer  program  written  in  ADA  and  compiled  for  use  on 
IBM  compatible  machines.  The  program  takes  as  inputs  thermal  and  physical 
data  and  outputs  an  optimized  fin  configuration.  Menu  driven,  the  program  is 
easily  employed  without  any  amplifying  documentation.  The  program  serves 
to  greatly  simplify  and  accelerate  the  fin  design  process  and  should  be  an 
invaluable  tool  to  electronic  component  designers,  especially  those  with  a 
limited  background  in  heat  transfer  and  fin  optimization  theory. 
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I.  INTRODUCTION 

Convection  is  the  transfer  of  energy  from  a  heat  source  to  a  cooler 
surrounding  fluid  due  to  the  motion  of  the  fluid.  The  rate  of  heat  transfer  by 
convection,  qc,  is  governed  by  Newton's  Law  of  Cooling  which  is 

qc  =  hAs(T-TJ  (1-1) 

where  h  is  the  coefficient  of  heat  transfer  in  convection,  As  is  the  surface  area, 
T  is  the  fin  temperature  at  position  x,  and  7^,  is  the  ambient  temperature.  One 
method  of  increasing  qc  is  to  increase  h  by  going  from  natural  to  forced 
convection.  Natural  convection  is  a  phenomenon  in  which  the  fluid  motion  is 
induced  by  differences  in  buoyancy  and  density  between  parcels  of  fluid  at  the 
confining  surface  and  within  the  bulk  of  the  fluid.  Forced  convection  occurs 
when  the  fluid  motion  is  induced  or  forced  by  a  fan,  pump,  or  blower.  Because 
the  addition  of  a  fan  or  pump  may  increase  operating  costs,  background  noise, 
and  component  size,  forced  convection  is  often  undesirable.  An  alternative 
method  of  increasing  qc  is  to  increase  As  by  adding  extended  surfaces  or  fins. 

[Ref.  l:pp.  114-119] 

In  the  design  of  electronic  components,  the  disadvantages  of  forced 
convection  often  lead  to  the  use  of  natural  convection  and  fins  to  dissipate 
potentially  destructive  component  produced  heat.  Fin  design  and  optimization 
in  a  natural  convective  environment  is  the  subject  of  this  work. 

Fin  design  theory  may  be  examined  by  beginning  with  the  single  fin 
problem.  The  temperature  profile  differential  equation  can  be  developed  for 
arbitrarily  shaped  fins  and  subsequently  applied  to  fins  of  constant  cross- 
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sectional  area.  The  temperature  distribution,  fin  tip  temperature,  heat 
dissipation,  and  fin  efficiency  equations  are  all  derived  here  and  the  equations 
are  then  applied  to  the  cylindrical  spine  and  rectangular  fin,  which  are  two 
commonly  employed  fin  designs. 

Single  fin  optimization  theory  is  explored  for  the  cylindrical  spine  and 
rectangular  fin.  Two  separate  situations  are  examined.  First,  for  a  given 
volume  or  quantity  of  material,  the  fin  dimensions  can  be  optimized  to 
maximize  the  heat  transfer  rate.  Second,  for  a  given  heat  transfer  rate,  the  fin 
dimensions  can  be  provided  which  will  minimize  the  volume  of  material 
required. 

Multiple  fin  heat  transfer  and  optimization  theories  can  also  be  developed 
for  an  array  of  symmetric  isothermal  rectangular  fins.  Here  too,  the  equation 
for  the  heat  dissipation  can  be  derived.  This  leads  to  an  optimization  where 
the  number  and  spacing  of  fins  can  be  provided  to  give  the  maximum  heat 
transfer  rate  from  a  wall  of  given  dimensions.  In  addition,  the  number  and 
spacing  of  fins  can  be  optimized  to  maximize  the  heat  transfer  rate  from  each 
fin  on  a  wall  of  given  dimensions. 

The  single  and  multiple  fin  heat  transfer  and  optimization  equations  are 
implemented  in  a  computer  program  written  in  ADA  and  compiled  for  use  on 
IBM  compatible  machines.  The  emphasis  of  the  program  is  on  ease  of  use.  The 
program  is  menu  driven  and  does  not  require  any  amplifying  documentation. 
Knowledge  of  heat  transfer  theory  is  not  required.  When  faced  with  a  fin 
optimization  problem,  an  electronic  component  designer  is  no  longer  forced  to 
choose  between  conducting  laborious  heat  transfer  calculations  or  resorting  to 
trial  and  error. 


The  computer  program  is  illustrated  by  means  of  an  actual  fin  array 
design  problem.  The  increase  in  heat  transfer  rate  resulting  from  a  staggering 
of  fin  arrays,  without  any  increase  in  materials  or  wall  placement  area,  is  also 
demonstrated. 


II.  SINGLE  FIN  HEAT  TRANSFER  THEORY 


A.      INTRODUCTION 

In  order  to  make  the  mathematical  analysis  of  extended  surfaces 
tractable,  Murray  [Ref.  2:p.  A78]  and  Gardner  [Ref.  3:p.  621]  proposed  several 
limiting  assumptions.  These  are: 

(1)  The  heat  flow  and  temperature  distribution  throughout  the  fin  are 
independent  of  time  i.e.,  the  heat  flow  is  steady. 

(2)  The  fin  material  is  homogeneous  and  isotropic. 

(3)  There  are  no  heat  sources  in  the  fin  itself. 

(4)  The  heat  flow  to  or  from  the  fin  surface  at  any  point  is  directly 
proportional  to  the  temperature  difference  between  the  surface  at 
that  point  and  the  surrounding  fluid. 

(5)  The  thermal  conductivity  of  the  fin  is  constant. 

(6)  The  heat  transfer  coefficient  is  the  same  over  all  the  fin  surface. 

(7)  The  temperature  of  the  surrounding  fluid  is  uniform. 

(8)  The  temperature  of  the  base  of  the  fin  is  uniform. 

(9)  The  thickness  is  so  small  compared  to  its  height  that  temperature 
gradients  normal  to  the  surface  may  be  neglected. 

(10)  The  heat   transferred   through   the   outermost   edge   of  the   fin   is 
negligible  compared  to  that  passing  through  the  sides. 

These  assumptions  serve  to  narrow  the  scope  of  the  extended  surface  problem 

and  are  applicable  in  the  analysis  that  follows.  [Ref.  3:p.  324] 


B.       ARBITRARILY  SHAPED  FINS 

1.      Temperature  Profile  Differential  Equation 

Figure  2-1  is  an  example  of  an  arbitrarily  shaped  fin  of  height  b, 
differential  surface  area  dAs,  and  varying  cross-sectional  area  A(x).  The  Fourier 

and    Newton    Laws    are    used    to    derive    the    differential    equation    for    the 


temperature  profile  of  the  fin  shown  in  Figure  2-1.  As  fins  are  generally  thin,  b 
is  assumed  to  be  much  greater  than  r.  Although  the  fin  temperature  varies 
with  r  and  x,  the  radial  variation  is  small  and  assumed  to  be  negligible.  [Ref. 
l:pp.  117-118] 


Control  Volume 


Figure  2-1.  Arbitrarily  Shaped  Fin  of  Varying  Cross-Sectional  Area 


In  Figure  2-1,  Heat  enters  the  control  volume  by  conduction  at  a  rate 
of  q(x)  and  exits  at  a  rate  of  q(x  +  dx).  Heat  is  dissipated  by  convection  through 
dAs  at  a  rate  of  dqc.  [Ref.  l:p.  118] 

Ignoring  radiation  and  assuming  no  internal  heat  generation,  the 
heat  balance  energy  equation  for  the  control  volume  can  be  written  as 

q(x)  =  q(x  +  dx)  +  dqc  (2-l) 

Substituting  for  q(x+dx) 


(^dq(x)^ 


q(x)=    q{x)  + 


dx 


dx 


+  dqc 


(2-2) 


and  simplifying  yields 


dq(x) 
dx 


dx  =  dqc 


(2-3) 


Fourier's  Law  can  be  expressed  as 


q(x)  =  -kA(x) 


dT 
dx 


(2-4) 


where  k  is  the  thermal  conductivity  of  the  fin  material  and  dT/dx  is  the 
temperature  gradient.  Differentiating  Equation  2-4  with  respect  to  x  gives 


dx  dxy         dx 

Newton's  Law  of  Cooling  can  be  written  as 

dqc=hdAs(T-T„) 


Substituting  Equations  2-5  and  2-6  into  Equation  2-3  gives 

k4-\A(x)^\dx  =  hdAs(T-T) 

dx{        dx) 

Then,  differentiating  and  dividing  both  sides  by  kdx  provides 

dx    dx  dx2     k  dx 

so  that  a  simplification  then  gives 

d2T       1    dA(x)dT        h     dA, 


(2-5) 


(2-6) 


(2-7) 


(2-8) 


dx2     A(x)    dx    dx     kA(x)  dx 


(r-rJ  =  o 


(2-9) 


Equation  2-9  is  the  temperature  profile  differential  equation  for  an  arbitrarily 
shaped  fin  of  varying  cross-sectional  area.  [Ref.  l:pp.  118-119] 


2.       Temperature  Distribution  Equation 

A  general  solution  to  Equation  2-9,  is  found  for  a  fin  with  constant 
cross-sectional  area,  A.  Uniform  cross-sectional  area  means  that  A(x)  =  A  (a 
constant)  and  permits  the  simplification 

dA(x) 


dx 
and  with  this  in  Equation  2-9,  the  result  is 

d2T      h  dA 


=  0  (2-10) 


(r-r)  =  0  (2-11) 


dx2     kA  dx 
If  the  surface  area  is  expressed  in  terms  of  the  perimeter,  P 

dAs  =  Pdx  (2-12) 

a  substitution  into  Equation  2-11  yields 

A2T     hP 

g-g(r-rJJ.o  (2-13) 

and  if  a  change  of  variables 

e  =  r-7L  (2-14) 

is  made,  then 

T  =  Q  +  T_  (2-15) 

dT     dQ 


dx     dx 
and 

d2T  =  d2Q 
dx2      dx2 

Use  of  these  permits  Equation  2-13  to  be  written  as 

d2Q     hP 


dx2     kA 
and  if  the  parameter,  m,  is  introduced 


(2-16) 


(2-17) 


6  =  0  (2-18) 


m.M  ,2-19, 


then  Equation  2-18  can  be  written  as 

d2Q 


-m2e  =  0  (2-20) 


dx2 

The  general  solution  to  Equation  2-20  is 

9  =  C,  cosh(mx)  +  C2  sinhfrnx)  (2-21) 

where  the  arbitrary  constants,  Cl  and  C2,  are  evaluated  from  the  boundary 

conditions 

•  At  position  x  =  0,  T  =  TW  and  Qw  =  TW  -  Tm 

•  At  position  x  =  b,  ——  =  0  and  —  =  0 

dx  ax 

where  Tw  is  the  wall  temperature.  The  second  boundary  condition  is  based  on 
the  earlier  assumption  that  b  is  much  greater  than  r  so  that  the  surface  area  at 
the  fin  tip  is  very  small  and  that  the  heat  dissipated  at  the  tip  is  negligible.  The 
heat  convected  away  from  the  surface  area  at  the  tip  of  the  fin  is  considered 
negligible.  Applying  the  first  boundary  condition  to  Equation  2-21  yields 

Qw=Cll  +  C20  (2-22) 

so  that 

C,  =  ew  (2-23) 

Then,  a  differentiation  of  Equation  2-21  gives 

—  =  Qwmsmh(mx)  +  C2mcosh{mx)  (2-24) 

dx 

so  that  employment  of  the  second  boundary  condition  provides 

0  =  Qwm  sinh(mi>)  +  C2m  cosh(mb)  (2-25) 

and  hence 


0W  smh(mb) 
2         cosh(mb) 

After  substitution  for  Cl  and  C2,  Equation  2-21  becomes 

0      cosh(mb)  coshfrnx)  -  sinh(mb)  sinh(mx) 


(2-26) 


e, 


cosh(mb) 


(2  -27) 


Using  a  hyperbolic  function  identity  in  Equation  2-27  allows  the  representation 


cosh 


mb\  1  - 


cosh(mb) 


(2-28) 


and  returning  to  Q    =TW-  T„ 


(T  -rjcosh 


T  =  T  + 


mb 


( 


l~b 


(2-29) 


cosh(mb) 

Equation  2-29  gives  the  temperature  profile  for  a  fin  of  constant  cross-sectional 
area.  The  temperature  at  any  position  x  along  the  fin  can  be  calculated  using 
Equation  2-29.  [Ref.  l:pp.  120-123] 

3.       Fin  Tip  Temperature  Equation 

Often,  a  value  of  interest  is  the  temperature  at  the  tip  of  the  fin,  Ttip. 

Substituting  x  =  b  into  Equation  2-29  gives 

Crw-rj 


Ttip     T~  +  cosh(mb) 


(2-30) 


Equation  2-30  is  the  equation  for  the  fin  tip  temperature  for  a  fin  of  constant 
cross-sectional  area.  [Ref.  l:pp.  145-146] 


4.       Heat  Dissipation  Equation 

The  heat  dissipation  equation  for  a  fin  of  constant  cross-sectional 
area  is  derived  using  Fourier's  Law  and  Equation  2-27.  From  Fourier's  Law, 


q  =  -kA 


dT 


dx 


=  -kA 


x=0 


dQ 
dx 


(2-31) 


x=0 


Differentiation  of  Equation  2-27  yields 

dQ     ®w  [m  cosh(mb)  sinh(mx)  -  m  sinh(mfr)  coshf/m:)] 
dx  cosh(mb) 

and  this  may  be  put  into  Equation  2-31  to  obtain 

kAQw  \m  cosh{mb)  sinh(mA:)  -  m  sinh(mfr)  cosh(mx)] 
q  = l- 


(2-32) 


A  simplification  then  yields 


Q  = 


cosh(mb) 


kAQw  \m  smh{mb)] 


(2-33) 


x=0 


(2-34) 


cosh(mb) 

and  substituting  for  6^  gives 

q  =  kAm(Tw-Tj\arih(mb)  (2-35) 

Equation  2-35  is  the  heat  dissipation  equation  for  a  fin  of  constant  cross- 
sectional  area.  [Ref.  l:p.  123] 
5.      Fin  Efficiency 

A  common  parameter  employed  in  the  design  of  finned  surfaces  is 
the  fin  efficiency,  rj.  The  definition  of  rj  is  the  actual  heat  dissipated  by  the  fin 

divided  by  that  which  would  be  dissipated  if  the  fin  operated  throughout  at  the 
wall  temperature.     If  Equation  2-35,  which  gives  the  actual  dissipation,  is 
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divided  by  Newton's  Law  of  Cooling,  which  gives  the  ideal  dissipation,  the 
result  is 

kAm(Tw-T  )Xanh{mb) 
hAs(Tw-TJ 

Hence 

kAm  Xanhimb) 

T]  = T-r-1 (2-37) 

hA. 


and 


mliA 
and  with  m2  =  hP/kA  by  Equation  2-19 


kAm2  tanh(mb) 
ti  = ^-r1 — ~  (2-38) 


kAmhA 
Thus 


kAhP  Xanhimb) 
ri  = ,  ,    rr — ~  (2-39) 


P  Xanhimb) 

Tl  = 7 (2-40) 

mAr 


But  As  =  Pb,  and  this  simplification  gives  the  final  expression  for  the  fin  of 

constant  cross-section. 

Xanhimb) 

Tl  = j— -  (2-41) 

mb 

Equation  2-41  provides  the  efficiency  of  a  fin  with  constant  cross-sectional 
area.  |Ref.  l:p.  125] 
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C.       SPECIFIC  FIN  CONFIGURATIONS 
1.       Cylindrical  Spine 

As  shown  in  Figure  2-2,  a  cylindrical  spine  is  essentially  a  bar  of 
height  b  and  diameter  d  attached  to  the  surface  to  be  cooled.  As  the  fin  has  a 
constant  cross-sectional  area,  the  equations  derived  in  the  previous  section 
apply  to  the  cylindrical  spine.  [Ref.  l:p.  120] 


Figure  2-2.  Cylindrical  Spine 


For  the  cylindrical  spine,  the  perimeter  and  area  are  written  as 

P  =  nd  (2-42) 


and 


A  = 


nd2 


(2-43) 


Hence,  Equation  2-19  becomes 
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m  = 


\4h 
kd 


(2-44) 


2.       Longitudinal  Fin  of  Rectangular  Profile 

A  commonly  encountered  fin  configuration  is  that  of  the 
longitudinal  fin  of  rectangular  profile.  Figure  2-3  is  an  example  of  a 
rectangular  fin  of  height  b,  length  L,  and  width  8.  The  equations  derived  for 
fins  of  constant  cross-sectional  area  are  applicable  to  the  rectangular  fin 
configuration.  [Ref.  l:p.  120] 


Figure  2-3.  Rectangular  Fin 


For  the  longitudinal  fin  of  rectangular  profile,  the  perimeter  and  area 


are 
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P  =  25  +  2L 


(2-45) 


and 


A  =  L5  (2-46) 

As  rectangular  fins  are  traditionally  thin,  the  following  simplification  is  made 
[Rcf.  l:p.  137J. 

P  =  2L  (2-47) 

Substituting  Equations  2-46  and  2-47  into  Equation  2-19  gives 


m  = 


kb 


(2-48) 
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III.  SINGLE  FIN  OPTIMIZATION  THEORY 

A.  INTRODUCTION 

Single  fin  optimization  theory  can  be  divided  into  two  categories.  In  the 
first  category  the  fin  shape  is  known.  Two  commonly  employed  fin  shapes,  the 
cylindrical  spine  and  the  rectangular  fin,  may  be  examined  from  two  different 
perspectives.  Either  the  dimensions  of  the  fin  are  optimized  to  yield  the 
maximum  heat  transfer  rate  from  a  given  volume  or,  for  a  given  heat  transfer 
rate,  the  fin  dimensions  are  optimized  to  minimize  the  required  volume  of 
material.  The  second  category  is  based  on  the  determination  of  an  optimal  fin 
shape.  Fin  shapes  are  found  which  minimize  the  volume  of  material  required 
to  obtain  a  given  heat  transfer  rate.  Curved  fins  are  commonly  produced  in  the 
shape  optimization  problem.  As  curved  fins  are  difficult  and  expensive  to 
manufacture,  the  shape  optimization  problem  will  not  be  addressed.  [Ref.  5:p. 
155] 

B.  CYLINDRICAL  SPINE 

1.       Maximum  Heat  Transfer  for  a  Given  Volume 

Substituting  Equations  2-43  and  2-44  into  Equation  2-35  yields 


«-4Ji*-a-(^ 


(3-1) 


If 
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"=C 


then 


(3-2) 


q  = 


knd2(Tw-Tj 
4b 


and  for  a  cylinder  of  volume  V 


ptanh(p) 


V  = 


nd2b 


(3-3) 


(3-4) 


and 


or 


b  = 


4V_ 

nd2 


(3-5) 


d  = 


14V 
nb 


Substituting  Equation  3-5  into  Equation  3-3  yields 


4  = 


ht2d4(T„-Tj 
16V 


(3tanh(p) 


(3-6) 


(3-7) 


Then,  taking  the  derivative  with  respect  to  d,  simplifying,  and  setting  it  equal 

to  zero  leads  to  the  following  transcendental  equation. 

10p  =  3sinh(2p)  (3-8) 

with  a  solution  which  can  be  determined  by  trial  and  error 

p  =  0.9193  (3-9) 

Substitution  of  this  value  of  p  into  Equation  3-2  produces 


0.9193  =  ^ 


\4h 
kd 


(3-10) 
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Expressing  b  by  Equation  3-5  gives 


AV     Ah 
Hence,  the  optimized  value  for  the  diameter,  d,  is 


dm  =1.5031 


v   fc    J 


and  substitution  of  Equation  3-6  into  Equation  3-10  yields 


0.9193  =  b 


Ah 


4V 

%b 


AV2 


Thus,  the  optimized  value  for  the  height,  b,  is 

fvk^ys 


bopt  =0.5636 


v»2  j 


(3-11) 


(3-12) 


(3-13) 


(3-14) 


Equations  3-12  and  3-14  specify  the  optimal  dimensions  of  a  cylindrical  spine 
to  achieve  the  maximum  heat  transfer  rate  for  a  given  volume.  [Ref.  5:p.  158] 
2.       Minimum  Volume  for  a  Given  Heat  Transfer 
Solve  Equation  3-10  for  b 


b  =  0.9193, 


\kd 

Ah 


(3-15) 


and  then  substitute  Equations  3-15  and  3-9  into  Equation  3-3  to  obtain 


Q  = 


knd2(Tw-T„) 


4(0.9193). 


\kd 
Ah 


0.9193  tanh(0.9193) 


(3-16) 
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Hence 


4^=0.9165 


^V3 


* 


\ 


> 


hk(Tw-Tj 
The  solution  of  the  transcendental,  Equation  3-10,  is  for  d 


d  = 


4hb2 


fc(0.9193) 
and  substituting  Equations  3-18  and  3-9  into  Equation  3-3  yields 


Q  = 


16h2b4kn(Tw-T„) 
4M2(0.9193)4 


0.9193  tanh(0.9193) 


Thus 


*V=  0.4400 


qk 


nV3 


(3-17) 


(3-18) 


(3-19) 


(3-20) 


h2(Tw-T„) 

Equations  3-17  and  3-20  specify  the  optimal  dimensions  of  a  cylindrical  spine 
to  achieve  the  minimum  volume  for  a  given  heat  transfer  rate.  [Ref.  5:p.  158] 


C.       RECTANGULAR  FIN 

1.       Maximum  Heat  Transfer  for  a  Given  Volume  and  Length 

Substituting  Equations  2-46  and  2-48  into  Equation  2-35  gives 


4  =  fc5Lj|£(rw-rJtaiih| 


bj-r- 


V 


*5 


(3-21) 


For  a  rectangular  fin 


V  =  hLb 


(3-22) 
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or 


51 


(3-23) 


and 


5  = 


bL 


(3-24) 


Substituting  Equation  3-23  into  Equation  3-21  yields 

q  =  wig  (tw  -  T  )  tanh  f-  M  ' 


and,  once  more,  making  a  change  of  variables 


(3-25) 


Vl2h 


,& 


gives 


L  U5 


\?h 

q  =  khL  J~rw-rjtanh(t7) 
Vk8 


(3-26) 


(3-27) 


Taking  the  derivative  with  respect  to  5,  simplifying,  and  setting  the  result  equal 

to  zero,  yields  the  transcendental  equation 

61/  =  sinh(2L7)  (3-28) 

A  trial  and  error  solution  gives 

[7  =  1.4192  (3-29) 

and  substituting  this  result  into  Equation  3-26  gives 


L4192«£.,2h 


L  W 

This  shows  that  the  optimized  value  for  the  width,  5 ,  is 


(3-30) 
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6opt=  0.9977 


V2h 
L2k 


1/3 


(3-31) 


Substituting  Equation  3-24  into  Equation  3-30  yields 


1.4192  = 


(3-32) 


and 


*V  =1.0023 


Vk 
Lh 


-|i/3 


(3-33) 


Equations  3-31  and  3-33  specify  the  optimal  dimensions  of  a  rectangular  fin  to 
achieve  the  maximum  heat  transfer  rate  for  a  given  volume  and  length.  [Ref. 
5:p.  156] 

2.       Minimum  Volume  for  a  Given  Heat  Transfer  and  Length 
Substituting  Equation  3-29  into  Equation  3-27  gives 


^  =  fe5lJ|^(rw-rJtanh(L4192) 


(3-34) 


and  from  this  the  optimum  5  is  obtained 


0.632lf         q 

°"f=:    hk    [l(tw-tJ 


Y 


(3-35) 


Then,  substituting  Equation  3-24  into  Equation  3-35  yields 


V_     0.6321 
bL  = 


f 


hk 


^L(TW-TJ 


(3-36) 


and  solving  Equation  3-33  for  V provides 
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v  = 


b3Lh 


(1.0023)  k 
Then,  substituting  this  result  into  Equation  3-36  produces 


b3Lh 


0.6321 


( 


q 


(L0023)3*M.         ^     [L{TW-T„) 
and  the  optimum  value  of  the  fin  height,  b  is 


bODt  =  0.7978— -r-z- r 

m  Lh(Tw-Tj 


(3-37) 


(3-38) 


(3-39) 


Equations  3-35  and  3-39  specify  the  optimal  dimensions  of  a  rectangular  fin  to 
achieve  the  minimum  volume  for  a  given  heat  transfer  rate  and  length.  [Ref. 
5:p.  156] 
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IV.  MULTIPLE  FIN  HEAT  TRANSFER  THEORY 


A.  INTRODUCTION 

In  their  1984  landmark  paper,  Bar-Cohen  and  Rohsenow  described  the 
heat  transfer  and  optimization  equations  for  an  array  of  rectangular  fins. 
However,  they  did  not  provide  a  design  procedure  with  which  to  use  their  data 
to  formulate  optimum  arrays.  [Ref.  6:pp.  116-123] 

B.  ARRAY  OF  RECTANGULAR  FINS 
1.       Heat  Dissipation  Equation 

In  Figure  4-1,  adjacent  fins  form  a  channel.    The  channel  Rayleigh 
number,  Ra'  is  defined  as 

\iLkf 


where 


p  =  density  of  the  surrounding  fluid,  kg/m^ 

g  =  gravitational  acceleration,  m/s^ 

P  =  volumetric  coefficient  of  thermal  expansion,  1/°K 

cp  =  specific  heat  of  the  surrounding  fluid,  JAg°C 

Z    =  clear  spacing,  m 

7^,  =  wall  temperature,  °C 

Tm  =  ambient  temperature,  °C 

fi    =  dynamic  viscosity  of  the  surrounding  fluid,  kg/m«s 
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L    =  fin  length,  m 

kf  =  thermal  conductivity  of  the  surrounding  fluid,  W/m°C 


i 


i 


Figure  4-1.  Array  of  Rectangular  Fins 

The  volumetric  coefficient  of  thermal  expansion  is 

1 


P  = 


T^  +  460°R 


or,  in  SI  units 


(4-2) 


P  = 


7^+273.15K 


(4-3) 
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where 


rp  _     *W    "■"    -*«, 

Javg   "  y 


(4-4) 


The  dynamic  viscosity  is 


H  = 


vp 
9C 


(4-5) 


where  v  is  the  kinematic  viscosity  of  the  surrounding  fluid  and 

lbm-ft 


&  =32.2 


lbfs2 


(4-6) 


or,  in  SI  units 


Uc  N-s2 

If  the  fins  are  assumed  to  be  symmetric  and  isothermal 


(4-7) 


Nu0  = 


576       2.873 

+ 


-1/2 


(4.8) 


where  Nu0  is  the  channel  Nusselt  number.   Thus,  the  heat  transfer  coefficient 


is  for  n  fins  attached  to  the  wall 


h  = 


nu^kf 


(4-9) 


For  a  rectangular  fin,  the  parameter  m  is  given  by  Equation  2-48.  The  fin 
efficiency,  tj,  is  given  by  Equation  2-41.  The  surface  area  of  the  wall  that  is 
open  for  heat  transfer,  Avv,  is 

A,=(lv8j-(nL5)  (4-10) 

and  the  combined  heat  transfer  area  for  all  fins,  Afins,  is 

Aflns=n{2bL)  (4-11) 
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Hence,  the  total  area  available  for  heat  transfer,  A,otfl/,  is 

and  according  to  Newton's  Law  of  Cooling 

q  =  hAtotal(Tyf-Tj)  (4-13) 

Equation  4-13   is  the  heat  dissipation  equation  for  an  array  of  symmetric, 
isothermal  rectangular  fins.  [Ref.  6:pp.  116-119] 
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V.  MULTIPLE  FIN  OPTIMIZATION  THEORY 

A.      ARRAY  OF  RECTANGULAR  FINS 

1.       Maximum  Heat  Transfer  for  a  Given  Wall  Area 

In  an  array  of  symmetric,   isothermal  rectangular  fins,   the  heat 

transfer  rate  of  each  fin  decreases  as  fin  spacing  decreases.   Yet,  a  reduction  in 

fin  spacing  allows  for  a  greater  number  of  fins  to  be  placed  on  a  wall  of  given 

dimensions.   An  optimal  fin  spacing  exists  which  maximizes  the  heat  transfer 

rate  for  a  given  wall  area.  [Ref.  6:p.  120] 

As  the  wall  will  be  fully  populated  with  fins  to  maximize  q,  Apns  is 

assumed  to  be  much  greater  than  Aw.    Replacing  Atotal  in  Equation  4-13  with 

q  =  hAp„(Tw-T_)  (5-1) 

and  substitution  of  this  into  Equations  4-9  and  4-11  gives 

q  =  ^sKN{2bL)(Tw-T.)  (5-2) 

Z 

To  fully  populate  the  wall  with  fins 

w=rHr  (5"3) 

(z  +  5) 

The  value  obtained  for  Nfrom  Equation  5-3  must  be  truncated  to  produce  an 
integral  number  of  fins.   Substitution  of  Equations  4-8  and  5-3  into  Equation  5- 
2  gives 
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q  = 


-1-1/2 


576       2.873 

+ 


(Ra'f     Vita7 


kfSw(2bL)(Tw-T„) 


z{z  +  &) 
and  then  making  a  change  of  variables, 

Ra'    p2^cp(rw-r) 


one  obtains 


P  = 


\iLkf 


q  = 


576      2.873 

+ 


"1-1/2 


P2z*     J?z2 


kfbw(2bL)(Tw-T„) 


z(z  +  8) 


(5-4) 


(5-5) 


(5-6) 


or 


2kfbwbL(Tw-Tj 


576      2.873 
P2zs  +  Jpz2 


nV2 


(5-7) 


z(z  +  5) 
Taking  the  derivative  dq/dz,  simplifying,  and  then  setting  the  result  equal  to 


zero  gives 

2z  +  35-0.005PV2z7  =  0  (5-8) 

If  the  width  is  assumed  to  be  negligible, 

z      -^M  (5-9) 

Zopt  -      pl/4  ^  V) 

Equation  5-9  gives  the  optimal  fin  spacing  to  maximize  the  heat  transfer  rate 
for  a  wall  of  given  dimensions.  [Ref.  6:p.  120] 
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2.       Maximum  Heat  Transfer  from  Each  Fin 

It  is  often  desired  to  maximize  the  heat  transfer  rate  from  each  fin 
in  an  array  of  symmetric,  isothermal  rectangular  fins.  Although  an  infinite  fin 
spacing  is  theoretically  required,  setting  Nu0  equal  to  99%  of  the  isolated  fin 

value  leads  to 


max 


Equation  5-10  gives  the  optimal  fin  spacing  to  maximize  the  heat  transfer  rate 
from  each  fin  on  a  wall  of  given  dimensions.   Substituting  the  zmax  of  Equation 

5-3  provides  the  value  for  the  maximum  number  of  fins.  [Ref.  6:p.  120] 

The  value  of  zmax  is  approximately  double  that  of  the  boundary  layer 
thicknesses  along  each  of  the  surfaces  at  the  channel  exit.     The  value  zopt 

coincides  with  approximately  1.2  boundary  layer  thicknesses.  [Ref.  6:p.  120] 
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VI.  COMPUTER  PROGRAM  DEMONSTRATION 

A.  INTRODUCTION 

To  provide  a  demonstration  of  the  computer  program,  a  fin  array  design 
example  involving  a  wall  of  given  dimensions  populated  by  two  different 
arrangements  of  rectangular  fins,  is  analyzed  and  the  results  are  compared. 

B.  SINGLE  NON-STAGGERED  FIN  ARRAY 

In  the  first  arrangement,  the  wall  is  populated  by  a  single,  non-staggered 
fin  array.  The  dimensions  of  the  array  are  shown  in  Figure  6-1.  The  computer 
program  will  optimize  fin  spacing  to  maximize  the  array's  heat  transfer  rate. 


20    cm 


1 


0.2    cm 


Figure  6-1.  Single  Non-Staggered  Fin  Array 
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The  program  is  initiated  by  the  typing  the  following  command  at  the  DOS 
prompt. 

C:\>finopt  J 
After  the  introduction  and  continuation  screens,  Figure  6-2  is  presented. 


Select  Desired  Unit  System 

1)  English  Engineering 

2)  SI 

Input  your  selection:  [2] 
Press  enter  to  accept  default 


Figure  6-2.  Unit  System  Menu 

As  the  dimensions  in  Figure  6-1  are  in  centimeters,  the  enter  key  (J)  is  pressed 
to  select  the  SI  unit  system.  Figure  6-3  is  shown  on  the  screen. 


Select  Fin  Optimization 

1)  Single  Fin 

2)  Multiple  Fins 

Input  your  selection:  [2] 
Press  enter  to  accept  default 


Figure  6-3.  Fin  Optimization  Menu 
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Enter  is  pressed  to  select  the  multiple  fin  problem.  The  drawing  in  Figure  6-4  is 
then  shown  on  the  screen. 
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Figure  6-4.  Multiple  Fin  Drawing 

Figure  6-4  graphically  shows  the  nomenclature  for  the  parameters  that  will  be 
requested  by  the  program  so  that  the  optimization  and  heat  transfer 
calculations  can  be  instituted.  After  pressing  any  key,  the  menu  in  Figure  6-5  is 
displayed.  Enter  is  pressed  to  choose  the  third  selection  listed  in  the  menu. 
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Choose  Type  of  Optimization 

1)  No  Optimization 

2)  Maximum  heat  transfer 
capability  from  each 

fin  in  a  given  area 

3)  Maximum  heat  transfer 
capability  for  a  given 
area 

Input  your  selection:  [3] 
Press  enter  to  accept  default 


I 


HP 


Figure  6-5.  Type  of  Optimization  Menu 

Figure  6-6  illustrates  the  format  used  for  the  input  of  the  parameters  needed 
by  the  optimization  and  heat  transfer  equations. 


Required  Inputs 

All  values  must  be  inputted  as 

floats.  Examples:  5.0  or  2.0E-3 

Do  not  input  0.8  as  .8  !!! 


Length  of  the  fin  placement  area  =  2.0000E+01  cm 

Width  of  the  fin  placement  area  (cm)  = 

Press  enter  to  accept  default  or  any  other  key  to  enter  new  value 
New  value  =  25.0 

Figure  6-6.  Request  for  Inputs 

Once  the  user  has  supplied  the  required  inputs,  the  input-output  summary 
screens  in  Figure  6-7  are  presented. 
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..-..■' 


Inputs  =>  Outputs 


1 


^^W^R*S53g^ 


J         — -     p 
Inputs  | 


Length  of  the  fin  placement  area 

Width  of  the  fin  placement  area 

Length  of  each  fin 

Height  of  each  fin 

Width  of  each  fin 

Density  of  surrounding  fluid 

Specific  heat  of  surrounding  fluid 

Thermal  conductivity  of  material,  k 

Thermal  conductivity  of  surrounding  fluid,  k 

Kinematic  viscosity  of  surrounding  fluid 

Ambient  Temperature 

Wall  Temperature 


2.0000E+01  cm 
2.5000E+01  cm 
2.0000E+01  cm 
5.0000E+00  cm 
2.0000E-01  cm 
1.1770E+00kg/mA3 
1.0057E+03  J/(kg*deg-K) 
2.1000E+02  W/(m*deg-K) 
2.6240E-02  W/(m*deg-K) 
1.5680E-05  mA2/s 
2.5000E+01  deg-C 
7.5000E+01  deg-C 


|  Outputs  | 


Heat  transferred  away  by  the  fins,  q 

Spacing  between  fins 

Number  of  fins 

The  fin  efficiency 

The  temperature  at  the  tip  of  the  fins 

Channel  Rayleigh  number 

Channel  Nusselt  number 


=  1.3816E+02  W 

=  7.0603E-01  cm 

=  2.7000E+01  fins 

=  9.8116E-01 

=  7.3589E+01  deg-C 

=  5.4255E+01 

=  1.3066E+00 


Figure  6-7.  Input-Output  Summary 

The  user  can  print  the  summary  information  in  Figure  6-7  by  performing  a  DOS 
screen  dump,  simultaneously  pressing  the  Shift  and  Print  Screen  keys.  The 
information  can  be  imported  into  a  word  processor  for  editing  by  running  the 
program  under  Microsoft  Windows  and  using  its  clipboard  screen  capture 
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functions  [Ref.  7:pp.  248-250].  Pressing  any  key  will  produce  the  drawing  in 
Figure  6-8. 
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Figure  6-8.  Input-Output  Summary  Drawing 

The  drawing  in  Figure  6-8  graphically  displays  the  outputs  of  the  optimization 
calculations. 

C.       TWO  STAGGERED  FIN  ARRAYS 

In  the  second  arrangement,  the  wall  is  populated  by  two  staggered  fin 
arrays.   The  dimensions  of  the  arrays  are  shown  in  Figure  6-9.    Each  array  will 
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be  dealt  with  separately.  The  heat  transfer  rate  for  a  single  array  will  be 
calculated  and  doubled  to  find  the  total  heat  transfer  rate  for  the  wall  of  given 
dimensions. 


25  cm 


I 


20  cm 


10  cm 


10  cm 


02  cm 


Figure  6-9.  Two  Staggered  Fin  Arrays 
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1.       Same  Spacing  and  Number  of  Fins 

First,  the  staggered  fin  problem  is  examined  using  the  spacing  and 
number  of  fins  found  in  the  previous  non-staggered  fin  example.  Pressing  any 
key  after  viewing  the  drawing  in  Figure  6-8  results  in  the  continuation  menu  in 
Figure  6-10. 


Do  you  wish  to  continue  ? 

1)  Exit  to  DOS 

2)  Continue 

Input  your  selection:  [2] 
Press  enter  to  accept  default 


Figure  6-10.  Continuation  Menu 

Pressing  Enter  will  allow  the  user  to  continue  in  the  program.  All  the  defaults 
are  set  to  the  values  inputted  by  the  user  in  the  preceding  problem  to  facilitate 
rapid  sensitivity  analysis.  After  proceeding  through  the  screens  in  Figures  6-2, 
6-3,  and  6-4,  the  first  item,  "No  Optimization,"  is  chosen  from  the  menu  in 
Figure  6-5.  This  option  will  allow  the  user  to  input  the  fin  spacing  and  number 
of  fins  rather  than  conducting  an  optimization  of  those  values.  The 
parameters  required  by  the  heat  transfer  equations  are  inputted  in  the  format 
demonstrated  in  Figure  6-6.  Once  the  user  has  supplied  the  required  inputs, 
the  input-output  summary  screens  in  Figure  6-11  are  presented. 
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I  Inputs  =>  Outputs  | 


Length  of  the  fin  placement  area 

Width  of  the  fin  placement  area 

Length  of  each  fin 

Height  of  each  fin 

Width  of  each  fin 

Spacing  between  fins 

Number  of  fins 

Density  of  surrounding  fluid 

Specific  heat  of  surrounding  fluid 

Thermal  conductivity  of  material,  k 

Thermal  conductivity  of  surrounding  fluid,  k 

Kinematic  viscosity  of  surrounding  fluid 

Ambient  Temperature 

Wall  Temperature 


1.0000E+01  cm 
2.5000E+01  cm 
1.0000E+01  cm 
5.0000E+00  cm 
2.0000E-01  cm 
7.0603E-01  cm 
2.7000E+01  fins 
1.1770E+00kg/mA3 
1.0057E+03  J/(kg*deg-K) 
2.1000E+02  W/(m*deg-K) 
2.6240E-02  W/(m*deg-K) 
1.5680E-05  mA2/s 
2.5000E+01  deg-C 
7.5000E+01  deg-C 


Heat  transferred  away  by  the  fins,  q 
The  fin  efficiency 

The  temperature  at  the  tip  of  the  fins 
Channel  Rayleigh  number 
Channel  Nusselt  number 


=  9.2229E+01  W 

=  9.7490E-01 

=  7.3120E+01  deg-C 

=  1.085 1E+02 

=  1.7549E+00 


Figure  6-11.  Input-Output  Summary 

The  value  for  the  single  array  heat  transfer  rate,  q,  is  doubled  to  obtain  qtotal  for 
the  given  wall  area. 
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qtotal=  2(92.229)  =  184.46  W  (6-1) 

The  improvement  is 

184.46-138.16  =  33  5% 
138.16 

and  one  may  conclude  that  staggering  the  arrays  produces  a  33.5%  increase  in 

the  heat  transfer  rate,  without  any  change  in  the  number  of  fins,  spacing,  or 

materials  required.  Unfortunately  the  machining  required  to  produce  staggered 

fin  arrays  may  be  expensive. 

2.       Optimization  of  Spacing  and  Number  of  Fins 

The  increase  in  the  heat  transfer  rate  shown  in  Equation  6-2  can  be 

further  enhanced  by  optimizing   the   number  of   fins   and   spacing   in   the 

individual  fin  arrays.   Again  the  third  item  is  chosen  from  the  menu  in  Figure 

6-5.    The  input-output  summary  screens  produced  are  shown  in  Figure  6-12. 

The  value  obtained  for  q  is  again  doubled  to  obtain  qtotal  for  the  given  wall 

dimensions. 

qtotal  =  2(92.944)  =  185.89  W  (6-3) 


and 


and,  in  addition 


185.89-138.16 
138.16 


185.89 -184.46_  =  a775% 


184.46 

The  percentage  increase  found  in  Equation  6-5  is  small,  since  the  non-staggered 
array  of  fins  had  already  been  previously  optimized. 
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I  Inputs  =>  Outputs  | 


i^ss^^^ss^^^^^^o 


1  Inputs  1 


.ZZIZZZ11LSJ 


Length  of  the  fin  placement  area 

Width  of  the  fin  placement  area 

Length  of  each  fin 

Height  of  each  fin 

Width  of  each  fin 

Density  of  surrounding  fluid 

Specific  heat  of  surrounding  fluid 

Thermal  conductivity  of  material,  k 

Thermal  conductivity  of  surrounding  fluid,  k 

Kinematic  viscosity  of  surrounding  fluid 

Ambient  Temperature 

Wall  Temperature 


1.0000E+01  cm 
2.5000E+01  cm 
1.0000E+01  cm 
5.0000E+00  cm 
2.0000E-01  cm 
1.1770E+00kg/mA3 
1.0057E+03  J/(kg*deg-K) 
2.1000E+02  W/(m*deg-K) 
2.6240E-02  W/(m*deg-K) 
1.5680E-05  mA2/s 
2.5000E+01  deg-C 
7.5000E+01  deg-C 


Heat  transferred  away  by  the  fins,  q 

Spacing  between  fins 

Number  of  fins 

The  fin  efficiency 

The  temperature  at  the  tip  of  the  fins 

Channel  Rayleigh  number 

Channel  Nusselt  number 


=  9.2944E+01  W 

=  5.9370E-01  cm 

=  3.1000E+01  fins 

=  9.7770E-01 

=  7.3329E+01  deg-C 

=  5.4255E+01 

=  1.3066E+00 


Figure  6-12.  Input-Output  Summary 
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VII.  CONCLUSION 

In  the  design  of  electronic  equipment,  a  proper  heat  sink  configuration  is 
essential.  As  the  design  example  in  the  previous  section  demonstrates,  the 
computer  program  developed  for  this  thesis  can  serve  to  greatly  simplify  and 
accelerate  the  fin  design  process.  The  program  should  prove  to  be  valuable  tool 
to  electronic  component  designers,  especially  those  with  a  limited  background 
in  heat  transfer  and  fin  optimization  theory.  A  listing  of  the  source  code  for 
the  computer  program  is  included  in  the  Appendix. 
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—  Title 

--  Author 
--  Date 


APPENDIX 
SOURCE  CODE  FOR  THE  COMPUTER  PROGRAM 


EXTENDED  SURFACE  HEAT  SINKS  FOR  ELECTRONIC  COMPONENTS: 

A  COMPUTER  OPTIMIZATION 
John  Reynold  Gensure 
June  1992 


with     TEXT_IO,  COMMON_DISPLAY_TYPES,  TTY,  CURSOR,  VIDEO, 

FINOPT_SINGLE,  FINOPT_MULTIPLE,  FINOPT_PICTURES, 
FINOPT_DRAWINGS ; 

use      TEXT_IO,  COMMON_DISPLAY_TYPES,  FINOPT_SINGLE,  FINOPT_MULTIPLE; 

procedure  FINOPT  is 

PAUSE,  CONTINUE,  UNITS,  FIN_SING_MULT,  FIN_CYL_RECT, 
FIN_OPT_TYP,  DEFAULT_KEY  : 

INTEGER; 

SPACING_ENGLISH,  DENSITY_ENGLISH,  SPECIFIC_HEAT_ENGLISH, 
NU_ENGLISH,  K_FLUID_ENGLISH,  WALL_LENGTH_ENGLISH, 
WALL_WIDTH_ENGLISH,  DIAMETER_ENGLISH,  HEIGHT_ENGLISH, 
WIDTH_ENGLISH,  LENGTH_ENGLISH,  VOLUME_ENGLISH,  H_ENGLISH, 
K_ENGLISH,  T_AMBIENT_ENGLISH,  T_WALL_ENGLISH,  Q_ENGLISH, 
SPACING_SI,  DENSITY_SI,  SPECIFIC_HEAT_SI ,  NU_SI, 
K_FLUID_SI,  WALL_LENGTH_SI,  WALL_WIDTH_SI ,  DIAMETER_SI, 
HEIGHT_SI,  WIDTH_SI,  LENGTH_SI,  VOLUME_SI,  H_SI,  K_SI, 
T_AMBIENT_SI,  T_WALL_SI,  Q_SI,  SPACING,  DENSITY, 
SPECIFIC_HEAT,  NU,  K_FLUID,  WALL_LENGTH,  WALL_WIDTH, 
DIAMETER,  HEIGHT,  WIDTH,  LENGTH,  VOLUME,  H,  K,  T_AMBIENT, 
T_WALL,  Q,  CONVERT_DIST,  CONVERT_TEMP,  GRAVITY,  G_C, 
AREA_PROFILE,  NUM_FINS,  NUM_FINS_ENGLISH,  NUM_FINS_SI    :  FLOAT; 

PI  :  constant  :=  3 . 14159_26535_89793_23846_26433_83279_50288_41972; 

SPACING_UNITS,  WALL_LENGTH_UNITS, 

WALL_WIDTH_UNITS,  DIAMETER_UNITS,  HEIGHT_UNITS, 
WIDTH_UNITS,  LENGTH_UNITS  : 

STRING (1. .2) ; 

VOLUME_UNITS,  NUM_FINS_UNITS  : 

STRING(1. .4) ; 

T_UNITS  : 

STRING (1. .5) ; 

NUJJNITS,     Q_UNITS  : 

STRING (1. .6) ; 
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DENSITYJJNITS  : 

STRING (1. .8) ; 

NUMBER_OUT  : 

STRING (1. . 10) ; 

WIDTH_MSG,  LENGTH_MSG,  DIAMETER_MSG, 
HEIGHT_MSG,  SPACING_MSG,  WALL_LENGTH_MSG, 

WALL_WIDTH_MSG  : 

STRING (1. .  13)  ; 

SPECIFIC_HEAT_UNITS  : 

STRING (1. . 15) ; 

K_UNITS  : 

STRING (1. .11)  ; 

HJJNITS  : 

STRING (1. .19)  ; 

INPUT_MSG  : 

STRING (1. .33)  ; 

CHAR  :  CHARACTER; 

package  FLOAT_INOUT  is  new  FLOAT_I 0 ( FLOAT ) ; 
use  FLOAT_INOUT; 

begin 

—  Introduction  Page 

VIDEO. SET_COLOR_PALETTE  (BLUE); 
FINOPT  PICTURES. THESIS  MSG; 


Output  Program  Name 
FINOPT  PICTURES. FINOPT  MSG; 


Initialize  Variables  English  System 


SPACING_ENGLISH  :=  0.5; 

Spacing  (in) 

DENSITY_ENGLISH  :=  0.05928; 

Density  of  surrounding  fluid  (lbm/ftA3) 

SPECIFIC_HEAT_ENGLISH  :=  0.2404; 

Specific  heat  of  surrounding  fluid  (BTU/ (lbm*deg-R) ) 

NU_ENGLISH  :=  19.1774E-5; 

Kinematic  viscosity  of  surrounding  fluid  (ftA2/s) 

K_FLUID_ENGLISH  :=  0.01608; 

Thermal  conductivity  of  surrounding  fluid  (BTU/ (hr*f t*deg-R) 

WALL_LENGTH_ENGLISH  :=  6.0; 

Length  of  multi-fin  placement  area  (in) 


42 


WALL_WIDTH_ENGLISH  :=  9.0; 

Width  of  multi-fin  placement  area  (in) 

DIAMETER_ENGLISH  :=  0.3125; 

Diameter  (in) 

HEIGHT_ENGLISH  :=  4.5; 

Height  (in) 

WIDTH_ENGLISH  :=  0.062  5; 

Width  (in) 

LENGTH_ENGLISH  :=  2.25; 

Length  (in) 

VOLUME_ENGLISH  :=  0.3451; 

Volume  (inA3) 

H_ENGLISH  :=  1.0; 

Convection  heat  transfer  coefficient  (BTU7  (hr*f tA2*deg-R)  ) 

K_ENGLISH  :=  24.8; 

Thermal  conductivity  (BTU/ (hr* f t*deg-R) ) 

T_AMBIENT_ENGLISH  :=  7  0.0; 

Ambient  Temperature  (deg-F) 

T_WALL_ENGLISH  :=  2  00.0; 

Wall  temperature  (deg-F) 

Q_ENGLISH  :=  3.13; 

Heat  transferred  (BTU/hr) 


Initialize  Variables  SI  System 

SPACING_SI  :=  1.04; 

Spacing  (cm) 

DENSITY_SI  :=  1.177; 

Density  of  surrounding  fluid  (kg/mA3) 

SPECIFIC_HEAT_SI  :=  1005.7; 

Specific  heat  of  surrounding  fluid  ( J/ (kg*deg-K) ) 

NU_SI  :=  1.568E-5; 

Kinematic  viscosity  of  surrounding  fluid  (mA2/s) 

K_FLUID_SI  :=  0.0262  4; 

Thermal  conductivity  of  surrounding  fluid  (W/ (m*deg-K) ) 

WALL_LENGTH_SI  :=  9.0; 

Length  of  multi-fin  placement  area  (in) 

WALL_WI DTH_S I  : =  2  2 . 1 4 ; 

Width  of  multi-fin  placement  area  (in) 

DIAMETER_SI  :=  0.7; 

Diameter  (cm) 

HEIGHT_SI  :=  4.7, 

Height  (cm) 

WIDTH_SI  :=  0.11 

Width  (cm) 

LENGTH_SI  :=  9.0, 

Length  (cm) 

V0LUME_SI  :=  16.3516; 

Volume  (cmA3) 

H_SI  :=  7.0; 

Convection  heat  transfer  coefficient  (W/ (mA2*deg-K) 

K_SI  :=  236.0; 

Thermal  conductivity  (W/ (m*deg-K) ) 

T_AMBIENT_SI  :=  2  0.0; 

Ambient  temperature  (deg-C) 
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T_WALL_SI  :=  60.0; 
--  Wall  temperature  (deg-C) 

Q_SI  :=  5.902; 
--  Heat  transferred  (W) 


Continue? 


RED 


loop 

TTY. CLEAR  SCREEN; 

TTY.PUT 

6, 

21,  " 

YELLOW,  C 

:yan 

; 

TTY.PUT 

7, 

21,  " 

YELLOW,  C 

:yan 

; 

TTY.PUT 

8, 

21,  " 

TTY.PUT 

8, 

55,  " 

TTY.PUT 

9, 

21,  " 

TTY.PUT 

9, 

55,  " 

•  TTY.PUT 

10, 

21,  " 

TTY.PUT 

10, 

55,  " 

TTY.PUT 

11, 

21,  " 

TTY.PUT 

11, 

55,  " 

TTY.PUT 

12, 

21,  " 

TTY.PUT 

12, 

55,  " 

TTY.PUT 

13, 

21,  " 

TTY.PUT 

13, 

55,  " 

TTY.PUT 

14, 

21,  " 

TTY.PUT 

.14, 

55,  " 

TTY.PUT 

15, 

21,  " 

TTY.PUT 

15, 

55,  " 

TTY.PUT 

[16, 

21,  " 

TTY.PUT 

'16, 

55,  " 

TTY.PUT 

17, 

21,  " 

TTY.PUT 

'17, 

55,  " 

TTY.PUT 

[18, 

21,  " 

YELLOW,  C 

;yan 

; 

TTY.PUT 

'19, 

21,  " 

YELLOW,  C 

:yan 

; 

TTY.PUT 

8, 

24,  " 

TTY.PUT 

9, 

24,  " 

RED)  ; 

TTY.PUT 

10, 

24,  " 

TTY.PUT 

11, 

24,  " 

TTY.PUT 

12, 

24,  " 

TTY.PUT 

13, 

24,  " 

TTY.PUT 

14, 

24,  " 

TTY.PUT 

15, 

24,  " 

TTY.PUT  I 

16, 

24,  "  Pr 

)  i 

TTY.PUT  ( 

17, 

24,  " 

CURSOR. SE 

:T_SIZE(13,13 

loop 

CURSOF 

UMOVE  (15,  5 

TTY.GE 

IT  (CONTINUE, 

if  CO^ 

fTINUE  =  2  or 

exi 

t; 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW 

CYAN) 

YELLOW 

CYAN) 

YELLOW 

CYAN) 

YELLOW 

CYAN) 

YELLOW 

CYAN) 

YELLOW 

CYAN) 

YELLOW 

CYAN) 

YELLOW 

CYAN) 

YELLOW 

CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

,     CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

,     CYAN) 

Do  you  wish  to  continue  ? 

1)  Exit  to  DOS 

2)  Continue 

Input  your  selection:  [2] 
:ess  enter  to  accept  default 


); 


YELLOW,  RED) ; 
BRIGHT_WHITE, 

YELLOW,  RED) 

YELLOW,  RED) 

YELLOW,  RED) 

YELLOW,  RED) 

YELLOW,  RED) 

YELLOW,  RED) 
BRIGHT_WHITE, 

YELLOW,  RED) ; 


0); 

CHAR)  ; 

CONTINUE  =  3  or  CONTINUE  =  28   then 
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else 

TTY.PUT  (21,  24,  "  Improper  input,  please  reenter  ", 
BLUE,  CYAN) ; 
end  if; 
end  loop; 
CURSOR. INHIBIT; 


Do  Not  Continue 
exit  when  CONTINUE  =  2 ; 


Continue  With  Program 


Select  Unit  System 


TTY. CLEAR  SCREEN, 


TTY.PUT 

(  6, 

21,  ' 

YELLOW, 

CYAN 

; 

TTY.PUT 

(  7, 

21,  * 

YELLOW, 

CYAN 

; 

TTY.PUT 

(  8, 

21,  ' 

TTY.PUT 

(  8, 

55,  ' 

TTY.PUT 

(  9, 

21,  * 

TTY.PUT 

(  9, 

55,  * 

TTY.PUT 

(10, 

21,  ' 

TTY.PUT 

(10, 

55,  ' 

TTY.PUT 

(11, 

21,  ' 

TTY.PUT 

(11, 

55,  ■ 

TTY.PUT 

(12, 

21,  ' 

TTY.PUT 

(12, 

55,  ' 

TTY . PUT 

(13, 

21,  ' 

TTY.PUT 

(13, 

55,  ' 

TTY.PUT 

(14, 

21,  ' 

TTY.PUT 

(14, 

55,  ' 

TTY.PUT 

(15, 

21,  " 

TTY.PUT 

(15, 

55,  " 

TTY.PUT 

(16, 

21,  " 

TTY.PUT 

(16, 

55,  " 

TTY.PUT 

(17, 

21,  " 

TTY.PUT 

(17, 

55,  " 

TTY.PUT 

(18, 

21,  " 

YELLOW, 

CYAN 

; 

TTY.PUT 

(19, 

21,  " 

YELLOW, 

CYAN] 

; 

TTY.PUT 

(  8, 

24,  " 

TTY.PUT 

(  9, 

24,  " 

BRIGHT  WHITE, 

RED) 

TTY.PUT 

(10, 

24,  " 

TTY.PUT 

(11, 

24,  " 

TTY.PUT 

(12, 

24,  " 

TTY.PUT 

(13, 

24,  " 

TTY.PUT 

(14, 

24,  " 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

Select  Desired  Unit  System 

1)  English  Engineering 

2)  SI 


",  YELLOW,  RED) ; 


",  YELLOW,  RED) 

",  YELLOW,  RED) 

",  YELLOW,  RED) 

",  YELLOW,  RED) 

",  YELLOW,  RED) 
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TTY.PUT  (15,  24,  "    Input  your  selection:  [2]    ",  YELLOW,  RED); 
TTY.PUT  (16,  24,  "  Press  enter  to  accept  default  ",  BRIGHT_WHITE, 
RED)  ; 

TTY.PUT  (17,  24,  "  ",  YELLOW,  RED)  ; 

CURSOR. SET_SIZE( 13,  13)  ; 

loop 

CURSOR. MOVE  (15,  50); 

TTY.GET  (UNITS,  CHAR); 

if  UNITS  =  2  or  UNITS  =  3  or  UNITS  =  28   then 

exit; 
else 

TTY.PUT  (21,  24,  "  Improper  input,  please  reenter  ", 
BLUE,  CYAN) ; 
end  if; 
end  loop; 
CURSOR. INHIBIT; 


Use  English  Engineering  System 

if  (UNITS  =  2)  then 

CONVERT_DIST  :=  12.0; 

Convert  inches  to  feet 

CONVERTJTEMP  :=  4  60.0; 

Convert  deg-F  to  deg-R 

GRAVITY  :=  32.2; 

Acceleration  of  gravity  (ft/sA2) 

G_C    :=  32.2; 

Conversion  factor  (lbm*f t/ (lbf *sA2  )  ) 

SPACING  :=  SPACING_ENGLISH; 

SPACING_UNITS  :=  "in"; 

DENSITY  :=  DENSITY_ENGLISH; 

DENSITY_UNITS  :=  "lbm/ftA3"; 

SPECIFIC_HEAT  :=  SPECIFIC_HEAT_ENGLISH; 

SPECIFIC_HEAT_UNITS  :=  "BTU/ (lbm*deg-R) " ; 

NU  :=  NU_ENGLISH; 

NU_UNITS  :=  "ftA2/s"; 

WALL_LENGTH  :=  WALL_LENGTH_ENGLISH; 

WALL_LENGTH_UNITS  :=  "in"; 

WALL_WIDTH  :=  WALL_WIDTH_ENGLISH; 

WALL_WIDTH_UNITS  :=  "in"; 

NUM_FINS_UNITS  :=  "fins"; 

DIAMETER  :=  DIAMETER_ENGLISH; 

DIAMETER_UNITS  :=  "in"; 

HEIGHT  :=  HEIGHT_ENGLISH; 

HEIGHT_UNITS  :=  "in"; 

WIDTH  :=  WIDTH_ENGLISH; 

WIDTH_UNITS  :=  "in"; 

LENGTH  :=  LENGTH_ENGLISH; 

LENGTH_UNITS  :=  "in"; 

VOLUME  :=  VOLUME_ENGLISH; 

VOLUME_UNITS  :=  "inA3"; 

H  :=  H_ENGLISH; 

HJJNITS    :=    "BTU/ (hr*ftA2*deg-R)  "; 

K    :=    K_ENGLISH; 

K  FLUID  :=  K  FLUID  ENGLISH; 
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K_UNITS  :=  "BTU/ (hr*ft*deg-R) "; 

T_AMBIENT  :=  T_AMBIENT_ENGLISH; 

T_WALL  :=  T_WALL_ENGLISH; 

T_UNITS  :=  "deg-F"; 

Q  :=  Q_ENGLISH; 

Q  UNITS  :  =  "BTU/hr"; 


Use  SI  System 


else 

CONVERT_DIST  :=  100.0; 

Convert  centimeters  to  meters 

CONVERTJTEMP  :=  273.15; 

Convert  deg-C  to  deg-K 

GRAVITY  :=  9.81; 

Acceleration  of  gravity  (m/sA2) 

G_C  :=  1.0; 

Conversion  factor  (kg*m/ (N*sA2) ) 

SPACING  :=  SPACING_SI; 

SPACING_UNITS  :=  "cm"; 

DENSITY  :=  DENSITY_SI; 

DENSITY_UNITS  :=  "kg/mA3   "; 

SPECIFIC_HEAT  :=  SPECIFIC_HEAT_SI ; 

SPECIFIC_HEAT_UNITS  :=  " J/ ( kg*deg-K) 

NU  :=  NU_SI; 

NU_UNITS  :=  "mA2/s  "; 

WALL_LENGTH  :=  WALL_LENGTH_SI ; 

WALL_LENGTH_UNITS  :=  "cm"; 

WALL_WIDTH  :=  WALL_WIDTH_SI ; 

WALL_WIDTH_UNITS  :=  "cm"; 

NUM_FINS_UNITS  :=  "fins"; 

DIAMETER  :=  DIAMETER_SI; 

DIAMETER_UNITS  :=  "cm"; 

HEIGHT  :=  HEIGHT_SI; 

HEIGHT_UNITS  :=  "cm"; 

WIDTH  :=  WIDTHJSI; 

WIDTH_UNITS  :=  "cm"; 

LENGTH  :=  LENGTH_SI; 

LENGTH_UNITS  :=  "cm"; 

VOLUME  :=  VOLUME_SI; 

VOLUME_UNITS  :=  "cmA3" ; 

H  :=  H_SI; 

H_UNITS  :=  "W/ (mA2*deg-K) 

K  :=  K_SI; 

K_FLUID  :=  K_FLUID_SI; 

K_UNITS  :=  "W/ (m*deg-K) 

T_AMBIENT  :=  T_AMBIENT_SI ; 

T_WALL  :=  T_WALL_SI; 

T_UNITS  :=  "deg-C"; 

Q  :=  Q_SI; 

Q_UNITS  :=  "W 
end  if; 


Select  Single  or  Multiple  Fin  Optimization 
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TTY. CLEAR  SCREEN; 


RED)  ; 


TTY. PUT 

(  6, 

21,  " 

YELLOW, 

CYAN 

)  ; 

TTY. PUT 

(  7, 

21,  " 

YELLOW, 

CYAN 

)  ; 

TTY. PUT 

(  8, 

21,  " 

TTY. PUT 

(  8, 

55,  " 

TTY. PUT 

(  9, 

21,  " 

TTY. PUT 

(  9, 

55,  " 

TTY. PUT 

(10, 

21,  " 

TTY. PUT 

(10, 

55,  " 

TTY. PUT 

(11, 

21,  " 

TTY. PUT 

(11, 

55,  " 

TTY. PUT 

(12, 

21,  " 

TTY. PUT 

(12, 

55,  " 

TTY. PUT 

(13, 

21,  " 

TTY. PUT 

(13, 

55,  " 

TTY. PUT 

(14, 

21,  " 

TTY. PUT 

(14, 

55,  " 

TTY. PUT 

(15, 

21,  " 

TTY. PUT 

(15, 

55,  " 

TTY. PUT 

(16, 

21,  " 

TTY. PUT 

(16, 

55,  " 

TTY. PUT 

(17, 

21,  - 

TTY. PUT 

(17, 

55,  " 

TTY. PUT 

(18, 

21,  " 

YELLOW, 

CYAN; 

; 

TTY. PUT 

(19, 

21,  " 

YELLOW, 

CYAN) 

; 

TTY. PUT 

(  8, 

24,  " 

TTY. PUT 

(  9, 

24,  " 

BRIGHT  WHITE, 

RED) 

TTY. PUT 

(10, 

24,  " 

TTY. PUT 

(11, 

24,  " 

TTY. PUT 

(12, 

24,  " 

TTY. PUT 

(13, 

24,  " 

TTY. PUT 

(14, 

24,  " 

TTY. PUT 

(15, 

24,  " 

TTY. PUT 

(16, 

24,  " 

YELLOW 

,  CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

.  CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

CYAN) 

YELLOW 

CYAN) 

YELLOW 

CYAN) 

YELLOW 

CYAN) 

YELLOW 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

Select  Fin  Optimization 

1)  Single  Fin 

2)  Multiple  Fins 

Input  your  selection:  [2] 
'ress  enter  to  accept  default 


.3)  ; 

50)  ; 

_MULT,  CHAR) ; 
=  2  or  FIN_SING_MULT 
!8   then 


TTY. PUT  (17,  24, 
CURSOR. SET_SIZE( 13, 1 
loop 

CURSOR. MOVE  (15, 

TTY. GET  (FIN_SING_ 

if    FIN_SING_MULT    =    2    or    FIN_SING_MULT   =    3    or 

FIN_SING_MULT  =  2 

exit; 
else 

TTY. PUT  (21,  24,  "  Improper  input,  please  reenter 
BLUE,  CYAN) ; 
end  if; 
end  loop; 
CURSOR. INHIBIT; 


YELLOW, 

RED)  ; 

, 

YELLOW, 

RED)  ; 

, 

YELLOW, 

RED)  ; 

, 

YELLOW, 

RED)  ; 

, 

YELLOW, 

RED)  ; 

, 

YELLOW, 

RED)  ; 

, 

YELLOW, 

RED)  ; 

, 

BRIGHT 

WHITE, 

ft 

YELLOW, 

RED)  ; 
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Single  Fin  Problem,  Select  Cylindrical  or  Rectangular  Fin  Type 


if  (FIN_SING_MULT  = 
TTY. CLEAR  SCREEN, 


then 


RED) 

RED) 
RED) 
RED) 
RED) 
RED) 
RED) 

RED) 


TTY. PUT 
YELLOW, 
TTY. PUT 
YELLOW, 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY . PUT 
TTY. PUT 
TTY. PUT 
YELLOW, 


(  6,  21, 
CYAN) ; 

(  7,  21, 
CYAN) ; 

(  8,  21, 

(  8,  55, 

(  9,  21, 

(  9,  55, 

(10,  21, 

(10,  55, 

(11,  21, 

(11,  55, 

(12,  21, 

(12,  55, 

(13,  21, 

(13,  55, 

(14,  21, 

(14,  55, 

(15,  21, 

(15,  55, 

(16,  21, 

(16,  55, 

(17,  21, 

(17,  55, 

(18,  21, 
CYAN) ; 


TTY. PUT  (19,  21,  " 
YELLOW,  CYAN) ; 

TTY. PUT  (  8,  24,  " 

TTY. PUT  (  9,  24,  " 
BRIGHT_WHITE,  RED) ; 

TTY. PUT  (10,  24,  " 

TTY. PUT  (11,  24,  " 

TTY. PUT  (12,  24,  " 

TTY. PUT  (13,  24,  " 

TTY. PUT  (14,  24,  " 

TTY. PUT  (15,  24,  " 


" ,  YELLOW 

CYAN) 

" ,  YELLOW 

CYAN) 

",  YELLOW 

CYAN) 

" ,  YELLOW 

CYAN) 

" ,  YELLOW 

CYAN) 

" ,  YELLOW 

CYAN) 

" ,  YELLOW 

CYAN) 

" ,  YELLOW 

CYAN) 

" ,  YELLOW 

CYAN) 

" ,  YELLOW 

CYAN) 

" ,  YELLOW 

CYAN) 

",  YELLOW, 

CYAN) 

" ,  YELLOW 

CYAN) 

" ,  YELLOW 

CYAN) 

" ,  YELLOW 

CYAN) 

",  YELLOW 

CYAN) 

" ,  YELLOW 

,  CYAN) 

" ,  YELLOW 

,    CYAN) 

",  YELLOW 

,  CYAN) 

" ,  YELLOW 

,  CYAN) 

Select  Desired  Fin  Shape 


1)  Cylindrical  Spine 


2)  Rectangular  fin 


Input  your  selection:  [2] 


TTY. PUT  (16,  24,  "  Press  enter  to  accept  default 
BRIGHT_WHITE,  RED) ; 
TTY. PUT  (17,  24,  " 

CURSOR. SET_SIZE( 13,  13) ; 
loop 

CURSOR. MOVE  (15,  50); 


,  YELLOW, 

9 

,  YELLOW, 

,  YELLOW, 

,  YELLOW, 

,  YELLOW, 

,  YELLOW, 

,  YELLOW, 

i 

,  YELLOW, 
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TTY.GET  (FIN_CYL_RECT,  CHAR); 

if  FIN_CYL_RECT  =  2  or  FIN_CYL_RECT  =  3  or 

FIN_CYL_RECT  =28   then 

exit; 
else 

TTY.PUT  (21,  24,  "  Improper  input,  please  reenter  ", 
BLUE,  CYAN); 
end  if; 
end  loop; 
CURSOR. INHIBIT; 


Single  Fin  Problem,  Cylindrical  Spine, 
Draw  Cylindrical  Spine 

if  (FIN_CYL_RECT  =  2)  then 
DIAMETER_MSG  :=  "Diameter 
HEIGHT_MSG    :=  "    Height 
FINOPT  DRAWINGS. CYLINDRICAL  DRAWING (DIAMETER  MSG, 


HEIGHT  MSG) 


Single  Fin  Problem,  Cylindrical  Spine 
Choose  Optimization 


TTY. CLEAR  SCREEN; 


TTY.PUT 

(  2, 

21,  " 

YELLOW,  ( 

:yan  )  ; 

TTY.PUT 

(  3, 

21,  " 

YELLOW,  C 

:yan)  ; 

TTY.PUT 

(  4, 

21,  " 

TTY.PUT 

(  4, 

55,  " 

TTY.PUT 

(  5, 

21,  " 

TTY.PUT 

(  5, 

55,  " 

TTY.PUT 

(  6, 

21,  " 

TTY.PUT 

(  6, 

55,  " 

TTY.PUT 

(  7, 

21,  " 

TTY.PUT 

(  1, 

55,  " 

TTY.PUT 

(  8, 

21,  " 

TTY.PUT 

(  8, 

55,  " 

TTY.PUT 

(  9, 

21,  " 

TTY.PUT 

(  9, 

55,  " 

TTY.PUT 

'10, 

21,  " 

TTY.PUT 

10, 

55,  " 

TTY.PUT 

11, 

21,  " 

TTY.PUT 

11, 

55,  " 

TTY.PUT 

12, 

21,  " 

TTY.PUT 

12, 

55,  " 

TTY.PUT 

13, 

21,  " 

TTY.PUT 

13, 

55,  " 

TTY.PUT 

14, 

21,  " 

TTY.PUT  1 

14, 

55,  " 

TTY.PUT  ( 

15, 

21,  " 

TTY.PUT  ( 

15, 

55,  " 

TTY.PUT  ( 

16, 

21,  " 

TTY.PUT  ( 

16, 

55,  " 

YELLOW 

,  CYAN) 

YELLOW 

,     CYAN) 

YELLOW 

,     CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

,    CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

,    CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

,    CYAN) 

YELLOW 

,     CYAN) 

YELLOW 

,    CYAN) 

YELLOW 

,    CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

,     CYAN) 

YELLOW 

,     CYAN) 

YELLOW 

,  CYAN) 

YELLOW 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 

YELLOW, 

CYAN) 
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",  YELLOW,  CYAN) 

",  YELLOW,  CYAN) 

",  YELLOW,  CYAN) 

",  YELLOW,  CYAN) 

",  YELLOW,  CYAN) 

",  YELLOW,  CYAN) 


RED)  ; 

RED) 
RED) 
RED) 
RED) 
RED) 
RED) 
RED) 
RED) 
RED) 
RED) 
RED) 
RED) 

RED)  ; 


TTY.PUT  (17,  21,  " 

TTY.PUT  (17,  55,  " 

TTY.PUT  (18,  21,  " 

TTY.PUT  (18,  55,  " 

TTY.PUT  (19,  21,  " 

TTY.PUT  (19,  55,  " 

TTY.PUT  (20,  21,  " 

YELLOW,  CYAN) ; 

TTY.PUT  (21,  21,  " 

YELLOW,  CYAN) ; 

TTY.PUT  (  4,  24,  " 


TTY.PUT  (  5,  24,  "   Choose  Type  of  Optimization 
BRIGHT_WHITE,  RED) ; 

TTY.PUT  (  6,  24,  " 

TTY.PUT  (  7,  24,  " 

TTY.PUT  (  8,  24,  " 

TTY.PUT  (  9,  24,  " 

TTY.PUT  (10,  24,  " 

TTY.PUT  (11,  24,  " 

TTY.PUT  (12,  24,  " 

TTY.PUT  (13,  24,  " 

TTY.PUT  (14,  24,  " 

TTY.PUT  (15,  24,  " 

TTY.PUT  (16,  24,  " 

TTY.PUT  (17,  24,  " 


1.)  No  Optimization 

2)  Maximum  heat  transfer 
capability  for  a  given 
volume 

3)  Minimum  volume  for  a 
given  heat  transfer 
capability 

Input  your  selection:  [3] 


TTY.PUT  (18,  24,  "  Press  enter  to  accept  default 
BRIGHT_WHITE,  RED) ; 
TTY.PUT  (19,  24,  " 


YELLOW, 

YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 

YELLOW, 


CURSOR. SET_SIZE (13, 13) ; 
loop 

CURSOR. MOVE  (17,  50); 

TTY.GET  (FIN_OPT_TYP,  CHAR); 

if  FIN_OPT_TYP  =  2  or  FIN_OPT_TYP  =  3  or 

FIN_OPT_TYP  =  4  or  FIN_OPT_TYP  =28   then 

exit; 
else 

TTY.PUT  (23,  24,  "  Improper  input,  please  reenter  ", 
BLUE,  CYAN) ; 
end  if; 
end  loop; 
CURSOR. INHIBIT; 
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Single  Fin  Problem,  Cylindrical  Spine,  No  Optimization 

if  (FIN_OPT_TYP  =  2)  then 

CYLINDRICAL_NO_OPT (UNITS,  CONVERT_DIST,  DIAMETER, 
DIAMETERJJNITS,  HEIGHT,  HEIGHT_UNITS,  H,  H_UNITS,  K, 
K  UNITS,  T  AMBIENT,  T  WALL,  T  UNITS,  Q,  Q  UNITS) ; 


Single  Fin  Problem,  Cylindrical  Spine,  Maximum  Heat 
Transfer  Capability  for  a  Given  Volume 

els if  (FIN_OPT_TYP  =  3)  then 

CYLINDRICAL_GIVEN_VOL (UNITS,  CONVERT_DIST,  VOLUME, 
VOL*UME_UNITS,  DIAMETER,  DIAMETER_UNITS,  HEIGHT, 
HEIGHT_UNITS,  H,  H_UNITS,  K,  K_UNITS,  T_AMBIENT, 
T  WALL,  T  UNITS,  Q,  Q  UNITS); 


Single  Fin  Problem,  Cylindrical  Spine,  Minimum  Volume 
for  a  Given  Heat  Transfer  Capability 

else 

CYLINDRICAL_GIVEN_Q (UNITS,  CONVERTJDIST,  DIAMETER, 
DIAMETERJJNITS,  HEIGHT,  HEIGHT_UNITS,  H,  H_UNITS,  K, 
KJJNITS,  T_AMBIENT,  T_WALL,  T_UNITS,  Q,  Q_UNITS) ; 

end  if; 


Single  Fin  Problem,  Cylindrical  Spine 
Draw  Cylindrical  Spine  With  Calculated  Dimensions 

PUT  (DIAMETER_MSG(1. .10) ,  DIAMETER,  4,  3); 
DIAMETER_MSG(11)  :=  '  '  ; 

DIAMETER_MSG(12. .13)  :=  DIAMETERJJNITS; 
PUT  (HEIGHT_MSG(1. .10) ,  HEIGHT,  4,  3); 
HEIGHT_MSG(11)  :=  '  '; 
HEIGHT_MSG(12. . 13)  :=  HEIGHTJJNITS; 
FINOPT_DRAWINGS . CYLINDRICAL_DRAWING (DIAMETER_MSG, 
HEIGHT  MSG) ; 


Single  Fin  Problem,  Rectangular  Fin, 
Draw  Rectangular  Fin 


else 


WIDTH_MSG    :=  "Width 

LENGTH  J4SG   :=  "Length 

HEIGHT_MSG   :=  "    Height 

FINOPT_DRAWINGS . RECTANGULARJDRAWING (WIDTH_MSG,  LENGTH_MSG, 

HEIGHT  MSG) ; 


Single  Fin  Problem,  Rectangular  Fin 
Choose  Optimization 
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RED)  ; 

RED) 
RED) 
RED) 
RED) 
RED) 


TTY . CLEAR_SCREEN ; 
TTY.PUT  (  2,  21, 
YELLOW,  CYAN) ; 
TTY.PUT  (  3,  21, 
YELLOW,  CYAN) ; 


TTY. PUT 

(  4, 

21,  " 

,  YELLOW 

CYAN) 

TTY.PUT 

(  4, 

55,  " 

,  YELLOW 

CYAN) 

TTY.PUT 

(  5, 

21,  " 

,  YELLOW 

,  CYAN) 

TTY.PUT 

(  5, 

55,  " 

,  YELLOW 

,  CYAN) 

TTY.PUT 

(  6, 

21," 

,  YELLOW 

,  CYAN) 

TTY . PUT 

(  6, 

55,  " 

,  YELLOW 

,  CYAN) 

TTY.PUT 

(  7, 

21,  " 

,  YELLOW 

,     CYAN) 

TTY.PUT 

(  7, 

55,  " 

,  YELLOW 

,     CYAN) 

TTY.PUT 

(  8, 

21,  " 

,  YELLOW 

,     CYAN) 

TTY.PUT 

(  8, 

55,  " 

,  YELLOW 

,  CYAN) 

TTY . PUT 

(  9, 

21,  - 

,  YELLOW 

,     CYAN) 

TTY.PUT 

(  9, 

55,  " 

,  YELLOW 

,  CYAN) 

TTY.PUT 

(10, 

21,  " 

,  YELLOW 

,     CYAN) 

TTY . PUT 

(10, 

55,  " 

,  YELLOW 

,  CYAN) 

TTY.PUT 

(11, 

21,  " 

,  YELLOW 

,  CYAN) 

TTY.PUT 

(11, 

55,  " 

,  YELLOW 

,     CYAN) 

TTY.PUT 

(12, 

21," 

,  YELLOW 

,     CYAN) 

TTY.PUT 

(12, 

55,  " 

,  YELLOW 

,  CYAN) 

TTY.PUT 

(13, 

21,  " 

,  YELLOW 

,  CYAN) 

TTY.PUT 

(13, 

55,  " 

,  YELLOW 

,  CYAN) 

TTY.PUT 

(14, 

21," 

,  YELLOW 

,  CYAN) 

TTY.PUT 

(14, 

55,  " 

,  YELLOW 

CYAN) 

TTY.PUT 

(15, 

21,  " 

,  YELLOW 

CYAN) 

TTY.PUT 

(15, 

55,  " 

,  YELLOW 

CYAN) 

TTY.PUT 

(16, 

21,  " 

,  YELLOW 

CYAN) 

TTY.PUT 

(16, 

55,  " 

,  YELLOW 

CYAN) 

TTY.PUT 

(17, 

21," 

,  YELLOW 

CYAN) 

TTY.PUT 

(17, 

55,  " 

,  YELLOW 

CYAN) 

TTY.PUT 

(18, 

21,  " 

,  YELLOW 

CYAN) 

TTY.PUT 

(18, 

55,  " 

,  YELLOW 

CYAN) 

TTY. PUT 

(19, 

21,  " 

,  YELLOW, 

CYAN) 

TTY.PUT 

(19, 

55,  " 

,  YELLOW, 

CYAN) 

TTY.PUT 

(20, 

21,  " 

YELLOW, 

CYAN 

; 

TTY.PUT 

(21, 

21,  " 

YELLOW, 

CYAN 

; 

TTY . PUT 

(  4, 

24,  " 

TTY.PUT  (  5,  24,  "   Choose  Type  of  Optimization 
BRIGHT_WHITE,  RED) ; 
TTY.PUT  (  6,  24,  " 


TTY.PUT  (  7,  24,  " 

TTY.PUT  (  8,  24,  " 

TTY.PUT  (  9,  24,  " 

TTY.PUT  (10,  24,  " 


1)  No  Optimization 

2)  Maximum  heat  transfer 
capability  for  a  given 


,  YELLOW, 

f 

,  YELLOW, 

,  YELLOW, 

,  YELLOW, 

,  YELLOW, 

,  YELLOW, 
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RED) 
RED) 
RED) 
RED) 
RED) 
RED) 
RED) 

RED)  ; 


TTY.PUT  (11,  24, 

TTY.PUT  (12,  24, 

TTY.PUT  (13,  24, 

TTY.PUT  (14,  24, 

TTY.PUT  (15,  24, 

TTY.PUT  (16,  24, 

TTY.PUT  (17,  24, 

TTY.PUT  (18,  24, 
BRIGHT_WHITE,  RED 

TTY.PUT  (19,  24, 


volume  and  length 

3)  Minimum  volume  for  a 
given  heat  transfer 
capability 

Input  your  selection:  [3] 
Press  enter  to  accept  default 


,  YELLOW, 

,  YELLOW, 

,  YELLOW, 

,  YELLOW, 

,  YELLOW, 

,  YELLOW, 

,  YELLOW, 

,  YELLOW, 


CURSOR. SET_SIZE( 13,  13)  ; 
loop 

CURSOR. MOVE  (17,  50); 

TTY.GET  (FIN_OPT_TYP,  CHAR); 

if  FIN_OPT_TYP  =  2  or  FIN_OPT_TYP  =  3  or 

FIN_OPT_TYP  =  4  or  FIN_OPT_TYP  =28   then 

exit; 
else 

TTY.PUT  (23,  24,  "  Improper  input,  please  reenter  ", 
BLUE,  CYAN) ; 
end  if; 
end  loop; 
CURSOR. INHIBIT; 


Single  Fin  Problem,  Rectangular  Fin,  No  Optimization 

if  (FIN_OPT_TYP  =  2)  then 

RECTANGULAR_NO_OPT (UNITS,  CONVERT_DIST,  LENGTH, 
LENGTH_UNITS,  HEIGHT,  HEIGHT_UNITS,  WIDTH, 
WIDTH_UNITS,  H,  H_UNITS,  K,  K_UNITS,  T_AMBIENT, 
T  WALL,  T  UNITS,  Q,  Q  UNITS); 


Single  Fin  Problem,  Rectangular  Fin,  Maximum  Heat 
Transfer  Capability  for  a  Given  Volume  and  Length 


elsif  (FIN_OPT_TYP  =  3)  then 

RECTANGULAR_GIVEN_VOL (UNITS,  CONVERT_DIST,  VOLUME, 
VOLUMEJJNITS,  LENGTH,  LENGTH_UNITS,  HEIGHT,  HEIGHT_UNITS, 
WIDTH,  WIDTH_UNITS,  H,  H_UNITS,  K,  K_UNITS, 
T  AMBIENT,  T  WALL,  T  UNITS,  Q,  Q  UNITS); 


Single  Fin  Problem,  Rectangular  Fin,  Minimum  Volume 
for  a  Given  Heat  Transfer  Capability 
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else 

RECTANGULAR_GIVEN_Q (UNITS,  CONVERT_DIST,  LENGTH, 
LENGTH_UNITS,  HEIGHT,  HEIGHT_UNITS,  WIDTH, 
WIDTH_UNITS,  H,  H_UNITS,  K,  K_UNITS,  T_AMBIENT, 
T_WALL,  T_UNITS,  Q,  Q_UNITS); 

end  i  f ; 


Single  Fin  Problem,  Rectangular  Fin, 
Draw  Rectangular  Fin  With  Calculated  Dimensions 


PUT  (WIDTH_MSG(1.  .  10) ,  WIDTH,  4,  3); 
WIDTH_MSG(11)  :=  ' 

WIDTH_MSG(12. .13)  :=  WIDTH_UNITS; 
PUT  (LENGTH_MSG(1. . 10) ,  LENGTH,  4,  3 ) ; 
LENGTH_MSG(11)  :=  '  ' ; 
LENGTH_MSG ( 12 . .13)  : =  LENGTH_UNITS; 
PUT  (HEIGHT_MSG(1. .10) ,  HEIGHT,  4,  3); 
HEIGHT_MSG(11)  :=  ' 

HEIGHT_MSG(12. .13)  :=  HEIGHTJJNITS; 

FINOPT_DRAWINGS . RECTANGULAR_DRAWING (WIDTH_MSG,  LENGTH_MSG, 
HEIGHT_MSG) ; 
end  if; 


Multiple  Fin  Problem,  Rectangular  Fins,  Draw  Rectangular  Fins 


else 

WIDTH_MSG 

LENGTH_MSG 

HEIGHT_MSG 

SPACING_MSG 

WALL_LENGTH_MSG 

WALL  WIDTH  MSG 


'      Width 
'Length 

Height", 
Spacing 
Wall  Length 
Wall  Width 

FINOPT_DRAWINGS.MULTI_FIN_DRAWING(WIDTH_MSG,  LENGTH_MSG, 
HEIGHT  MSG,  SPACING  MSG,  WALL  LENGTH  MSG,  WALL  WIDTH  MSG) 


Multiple  Fin  Problem,  Rectangular  Fins,  Choose  Optimization 


TTY. CLEAR  SCREEN; 


TTY.PUT 

(  2, 

21, 

II 

YELLOW, 

CYAN 

; 

TTY.PUT 

(  3, 

21, 

■1 

YELLOW, 

CYAN 

; 

TTY.PUT 

(  4, 

21, 

It 

',  YELLOW, 

CYAN) 

TTY.PUT 

(  4, 

55, 

•  1 

',  YELLOW, 

CYAN) 

TTY.PUT 

(  5, 

21, 

II 

',  YELLOW, 

CYAN) 

TTY.PUT 

(  5, 

55, 

■  1 

',  YELLOW, 

CYAN) 

TTY.PUT 

(  6, 

21, 

II 

*,  YELLOW, 

CYAN) 

TTY.PUT 

(  6, 

55, 

II 

',  YELLOW, 

CYAN) 

TTY.PUT 

(  7, 

21, 

II 

',  YELLOW, 

CYAN) 

TTY.PUT 

(  7, 

55, 

It 

',  YELLOW, 

CYAN) 

TTY.PUT 

(  8, 

21, 

■  1 

',  YELLOW, 

CYAN) 

TTY.PUT 

(  8, 

55, 

II 

*,  YELLOW, 

CYAN) 

TTY.PUT 

(  9, 

21, 

■  1 

',  YELLOW, 

CYAN) 

55 


RED)  ; 

RED) 
RED) 
RED) 
RED) 
RED) 
RED) 
RED) 
RED) 
RED) 
RED) 
RED) 
RED) 


TTY 

.PUT 

(  9, 

55, 

TTY 

PUT 

(10, 

21, 

TTY 

PUT 

(10, 

55, 

TTY 

PUT 

(11, 

21, 

TTY 

PUT 

(11, 

55, 

TTY 

PUT 

(12, 

21, 

TTY 

PUT 

(12, 

55, 

TTY 

PUT 

(13, 

21, 

TTY 

PUT 

(13, 

55, 

TTY 

PUT 

(14, 

21, 

TTY. 

PUT 

(14, 

55, 

TTY. 

PUT 

(15, 

21, 

TTY. 

PUT 

(15, 

55, 

TTY. 

PUT 

(16, 

21, 

TTY. 

PUT 

(16, 

55, 

TTY. 

PUT 

(17, 

21, 

TTY. 

PUT 

(17, 

55, 

TTY. 

PUT 

(18, 

21, 

TTY. 

PUT 

(18, 

55, 

TTY. 

PUT 

(19, 

21, 

TTY. 

PUT 

(19, 

55, 

TTY. 

PUT 

(20, 

21, 

YELLOW, 

CYAN 

; 

TTY. 

PUT 

(21, 

21, 

YELLOW, 

CYAN 

; 

TTY. 

PUT 

(  4, 

24, 

TTY. PUT  (  5,  24, 
BRIGHT_WHITE,  RED 

TTY. PUT  (  6,  24, 

TTY. PUT  (  7,  24, 

TTY. PUT  (  8,  24, 

TTY. PUT  (  9,  24, 

TTY. PUT  (10,  24, 

TTY. PUT  (11,  24, 

TTY. PUT  (12,  24, 

TTY. PUT  (13,  24, 

TTY. PUT  (14,  24, 

TTY. PUT  (15,  24, 

TTY. PUT  (16,  24, 

TTY. PUT  (17,  24, 

TTY. PUT  (18,  24, 
BRIGHT  WHITE,  RED) ; 


" ,  YELLOW 

,  CYAN) 

" ,  YELLOW 

,     CYAN) 

" ,  YELLOW 

,     CYAN) 

" ,  YELLOW 

,     CYAN) 

" ,  YELLOW 

,  CYAN) 

" ,  YELLOW 

,  CYAN) 

" ,  YELLOW 

CYAN) 

" ,  YELLOW 

CYAN) 

",  YELLOW 

CYAN) 

" ,  YELLOW 

CYAN) 

",  YELLOW 

CYAN) 

",  YELLOW 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

'   Choose  Type  of  Optimization 
i 

1)  No  Optimization 

2)  Maximum  heat  transfer 
capability  from  each 
fin  in  a  given  area 

3)  Maximum  heat  transfer 
capability  for  a  given 
area 

'    Input  your  selection:  [3] 
'  Press  enter  to  accept  default 


YELLOW, 

YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
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TTY.PUT  (19,  24,  " 


",  YELLOW, 


RED)  ; 


CURSOR. SET_SIZE (13, 13) ; 
loop 

CURSOR. MOVE  (17,  50); 

TTY.GET  (FIN_OPT_TYP,  CHAR); 

if  FIN_OPT_TYP  =  2  or  FIN_OPT_TYP  =  3  or 

FIN_OPT_TYP  =  4  or  FIN_OPT_TYP  =28   then 

exit; 
else 

TTY.PUT  (23,  24,  "  Improper  input,  please  reenter  ", 
BLUE,  CYAN) ; 
end  if; 
end  loop; 
CURSOR. INHIBIT; 


Multiple  Fin  Problem,  Rectangular  Fins,  No  Optimization 

if  (FIN_OPT_TYP  =  2)  then 

MULTIPLE_NO_OPT (UNITS,  CONVERT_DIST,  CONVERTJTEMP,  G_C, 
GRAVITY,  WALL_LENGTH,  WALL_LENGTH_UNITS,  WALL_WIDTH, 
WALL_WIDTH_UNITS,  LENGTH,  LENGTH_UNITS,  HEIGHT, 
HEIGHT_UNITS,  WIDTH,  WIDTH_UNITS,  SPACING, 
SPACING_UNITS,  NUM_FINS,  NUM_FINS_UNITS,  DENSITY, 
DENSITY_UNITS,  SPECIFIC_HEAT,  SPECIFIC_HEAT_UNITS,  K, 
K_FLUID,  K_UNITS,  NU,  NU_UNITS,  T_AMBIENT,  T_WALL, 
T  UNITS,  Q,  Q  UNITS) ; 


Multiple  Fin  Problem,  Rectangular  Fins,  Maximum  Heat 
Transfer  Capability  From  Each  Fin  in  a  Given  area 

elsif  (FIN_OPT_TYP  =  3)  then 

MULTIPLE_MAX_FIN (UNITS,  CONVERT_DIST,  CONVERTJTEMP,  G_C, 
GRAVITY,  WALL_LENGTH,  WALL_LENGTH_UNITS,  WALL_WIDTH, 
WALL_WIDTH_UNITS,  LENGTH,  LENGTH_UNITS,  HEIGHT, 
HEIGHT_UNITS,  WIDTH,  WIDTH_UNITS,  SPACING, 
SPACING_UNITS,  NUM_FINS,  NUM_FINS_UNITS,  DENSITY, 
DENSITY_UNITS,  SPECIFIC_HEAT,  SPECIFIC_HEAT_UNITS,  K, 
K_FLUID,  K_UNITS,  NU,  NU_UNITS,  T_AMBIENT,  T_WALL, 
T  UNITS,  Q,  Q  UNITS) ; 


Single  Fin  Problem,  Rectangular  Fin,  Maximum  Heat  Transfer 
Capability  for  a  Given  Area 

else 

MULTIPLE_MAX_Q (UNITS,  CONVERT_DIST,  CONVERT_TEMP,  G_C, 
GRAVITY,  WALL_LENGTH,  WALL_LENGTH_UNITS,  WALL_WIDTH, 
WALL_WIDTH_UNITS,  LENGTH,  LENGTH_UNITS,  HEIGHT, 
HEIGHT_UNITS,  WIDTH,  WIDTH_UNITS,  SPACING, 
SPACING_UNITS,  NUM_FINS,  NUM_FINS_UNITS,  DENSITY, 
DENSITY_UNITS,  SPECIFIC_HEAT,  SPECIFIC_HEAT_UNITS,  K, 
K_FLUID,  K_UNITS,  NU,  NU_UNITS,  T_AMBIENT,  T_WALL, 
T  UNITS,  Q,  Q  UNITS) ; 
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end  if; 


Multiple  Fin  Problem,  Rectangular  Fins, 
Draw  Rectangular  Fins  With  Calculated  Dimensions 

PUT  (WIDTH_MSG(1.  . 10)  ,  WIDTH,  4,  3); 
WIDTH_MSG(11)  :=  ' 

WIDTH_MSG(12. .13)  :=  WIDTH_UNITS; 
PUT  (LENGTH_MSG(1.  . 10)  ,  LENGTH,  4,  3); 
LENGTH_MSG(11)  :=  '  '; 
LENGTH_MSG(12. .13)  :=  LENGTH_UNITS ; 
PUT  (HEIGHT_MSG(1. .10) ,  HEIGHT,  4,  3); 
HEIGHT_MSG(11)  :=  '  '  ; 
HEIGHT_MSG(12. .13)  :=  HEIGHT_UNITS; 
PUT  (SPACING_MSG(1. .10) ,  SPACING,  4,  3 ) ; 
SPACING_MSG(11)  :  =  '  '; 
SPACING_MSG(12. .13)  :=  SPACING_UNITS; 
PUT  (WALL_LENGTH_MSG(1. .10) ,  WALL_LENGTH,  4,  3 ) ; 
WALL_LENGTH_MSG (11)  : =  ' 

WALL_LENGTH_MSG ( 12 . . 13 )  : =  WALL_LENGTH_UNITS ; 
PUT  (WALL_WIDTH_MSG(1. .10) ,  WALL_WIDTH,  4,  3 ) ; 
WALL_WI DTH_MSG (11)  : =  '  ' ; 

WALL_WIDTH_MSG ( 12 . . 13 )  : =  WALL_WIDTH_UNITS ; 
FINOPT_DRAWINGS.MULTI_FIN_DRAWING(WIDTH_MSG,  LENGTH_MSG, 
HEIGHT_MSG,  SPACING_MSG,  WALL_LENGTH_MSG,  WALL_WIDTH_MSG) ; 
end  if; 


Reinitialize  Variables 


if  (UNITS  =  2)  then 

SPACING_ENGLISH  :=  SPACING; 
DENSITY_ENGLISH  :=  DENSITY; 
SPECIFIC_HEAT_ENGLISH  :=  SPECIFIC_HEAT; 
NU_ENGLISH  :=  NU; 
K_FLUID_ENGLISH  :=  K_FLUID; 
WALL_LENGTH_ENGLISH  :=  WALL_LENGTH; 
WALL_WIDTH_ENGLISH  :=  WALL_WIDTH; 
NUM_FINS_ENGLISH  :=  NUM_FINS; 
DIAMETER_ENGLISH  :=  DIAMETER; 
HEIGHT_ENGLISH  :=  HEIGHT; 
WIDTH  ENGLISH  :=  WIDTH; 


LENGTH; 
VOLUME; 


=  T  AMBIENT; 


LENGTH_ENGLISH  := 
VOLUME_ENGLISH  := 
H_ENGLISH  :=  H; 
K_ENGLISH  :=  K; 
T_AMBIENT_ENGLISH 
T_WALL_ENGLISH  :=  T_WALL; 
Q_ENGLISH  :=  Q; 
else 

SPACING_SI  :=  SPACING; 
DENSITY_SI  :=  DENSITY; 
SPECIFIC_HEAT_SI  :=  SPECIFIC_HEAT; 
NU_SI  :=  NU; 
K  FLUID  SI  :=  K  FLUID; 
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WALL_LENGTH_SI  :=  WALL_LENGTH; 
WALL_WIDTH_SI  :=  WALL_WIDTH; 
NUM_FINS_SI  :=  NUM_FINS; 
DIAMETER_SI  :=  DIAMETER; 
HEIGHT_SI  :=  HEIGHT; 
WIDTH_SI  :=  WIDTH; 
LENGTH_SI  :=  LENGTH; 
VOLUME_SI  :=  VOLUME; 
H_SI  :=  H; 
K_SI  :=  K; 

T_AMBIENT_SI  :=  T_AMBIENT; 
T_WALL_SI  :=  T_WALL; 
Q_SI  :=  Q; 
end  i  f ; 
end  loop; 


Exit  to  DOS 


FINOPT_PICTURES.EXIT_MSG; 
VIDEO. SET_COLOR_PALETTE  (BLACK); 
CURSOR. MOVE  (22,  1); 
CURSOR. SET_SIZE( 13, 13) ; 
end  FINOPT; 
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—  Title 

—  Author 

—  Date 


EXTENDED  SURFACE  HEAT  SINKS  FOR  ELECTRONIC  COMPONENTS 

A  COMPUTER  OPTIMIZATION 
John  Reynold  Gensure 
June  1992 


package  FINOPT_COMMON  is 

procedure  GET_INPUT (INPUT_VALUE 

INPUT_MSG 
SIZE_INPUT_MSG 
I N PUT_VALU E_UN I T S 
S I Z  E_I N  PUT_VALUE_UN ITS 
ROW  START 


in  out  FLOAT; 
in  STRING; 
in  INTEGER; 
in  STRING; 
in  INTEGER; 
in  INTEGER) ; 


end  FINOPT  COMMON; 
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—  Title 

■-  Author 
■-  Date 


EXTENDED  SURFACE  HEAT  SINKS  FOR  ELECTRONIC  COMPONENTS: 

A  COMPUTER  OPTIMIZATION 
John  Reynold  Gensure 
June  1992 


with     TEXT_IO,  COMMON_DISPLAY_TYPES,  TTY,  CURSOR; 

use      TEXT_IO,  COMMON_DISPLAY_TYPES; 

package  body  FINOPT_COMMON  is 

package  FLOAT_INOUT  is  new  FLOAT_IO ( FLOAT) ; 
use  FLOAT_INOUT; 

procedure  GET_INPUT ( INPUT_VALUE 

INPUT_MSG 
SIZE_INPUT_MSG 
I N PUT_VALU E_UN I T S 
SIZE_INPUT_VALUE_UNITS 
ROW_START 

NUMBER_OUT 

CHAR 

DEFAULT  KEY 


in  out  FLOAT; 
in  STRING; 
in  INTEGER; 
in  STRING; 
in  INTEGER; 
in  INTEGER)  is 

STRING (1.  . 10)  ; 

CHARACTER; 

INTEGER; 


begin 

TTY. PUT  (ROW_START,  1,  INPUT_MSG,  YELLOW,  BLACK); 

TTY. PUT  (ROW_START,  1+SIZE_INPUT_MSG,  "  (",  YELLOW,  BLACK); 

TTY. PUT  (ROW_START,  3+SIZE_INPUT_MSG, 

INPUT_VALUE_UNITS ( 1 . . SIZE_INPUT_VALUE_UNITS) ,  YELLOW,  BLACK) ; 

TTY. PUT  (ROW_START,  SIZE_INPUT_VALUE_UNITS+3+SIZE_INPUT_MSG,  ")  = 
ii 
t 

YELLOW,  BLACK) ; 

TTY. PUT  (ROW_START+l,  1, 

"Press  enter  to  accept  default  or  any  other  key  to  enter  new 

value", 

BRIGHT_WHITE,  BLACK) ; 

PUT  (NUMBER_OUT,  INPUT_VALUE,  4,  3); 

TTY. PUT  (ROW_START,  SIZE_INPUT_VALUE_UNITS+7+SIZE_INPUT_MSG, 

NUMBER_OUT,  YELLOW,  BLACK) ; 

CURSOR. SET_SIZE  (13,13); 

TTY. GET  (DEFAULT_KEY,  CHAR) ; 

CURSOR. INHIBIT; 

if  DEFAULT_KEY  /=  28   then 

loop 

begin 

TTY . PUT  ( ROW_START , 

SIZE_INPUT_VALUE_UNITS+7+SIZE_INPUT_MSG, 

",  BLACK,  BLACK); 

TTY. PUT  (ROW_START+2,  1,  "New  value  =  ",  BRIGHT_WHITE, 

BLACK) ; 

CURSOR. SET_SIZE  (13,13); 

GET  (INPUT_VALUE) ; 

SKIP  LINE; 


61 


CURSOR. INHIBIT; 
exit; 
exception 

when  others  => 

TTY.PUT  (23,  24,  "  Improper  input,  please  reenter  ", 
BLUE,  CYAN) ; 
end; 
end  loop; 

TTY.PUT  (23,  24,  " 
BLACK,  BLACK) ; 
TTY.PUT  (R0W_START+2,  1,  " 
BLACK,  BLACK) ; 
end  if; 
TTY.PUT  (ROW  START+1,  1, 


BLACK,  BLACK) ; 

TTY.PUT  (ROW_START,  1+SIZE_INPUT_MSG,  " 

It 

/ 

YELLOW,  BLACK) ; 

TTY.PUT  (ROW_START,  46,  "       ",  BLACK,  BLACK); 
TTY.PUT  (ROW_START,  45,  "  =  ",  YELLOW,  BLACK); 
PUT  (NUMBER_OUT,  INPUT_VALUE,  4,  3); 

TTY.PUT  (ROW_START,  48,  NUMBER_OUT,  YELLOW,  BLACK); 
TTY.PUT  (ROW_START,  58,  "  ",  YELLOW,  BLACK); 
TTY.PUT  (ROW_START,  59, 
INPUT_VALUE_UNITS ( 1 . . SIZE_INPUT_VALUE_UNITS ) , 
YELLOW,  BLACK) ; 

TTY.PUT  (ROW_START,  59+SIZE_INPUT_VALUE_UNITS, 

",  YELLOW,  BLACK); 

end  GET_INPUT; 

end  FINOPT  COMMON; 
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—  Title 

--  Author 

—  Date 


EXTENDED  SURFACE  HEAT  SINKS  FOR  ELECTRONIC  COMPONENTS 

A  COMPUTER  OPTIMIZATION 
John  Reynold  Gensure 
June  1992 


package  FINOPT  DRAWINGS  is 


procedure  CYLINDRICAL_DRAWING (DIAMETER_MSG 

HEIGHT  MSG 


in  STRING; 
in  STRING) ; 


procedure  RECTANGULAR_DRAWING (WIDTH_MSG 

LENGTH_MSG 
HEIGHT  MSG 


in  STRING; 
in  STRING; 
in  STRING) ; 


procedure  MULTI_FIN_DRAWING (WIDTH_MSG 

LENGTH_MSG 
HEIGHT_MSG 
SPACING_MSG 
WALL_LENGTH_MSG 
WALL  WIDTH  MSG 


in  STRING; 
in  STRING; 
in  STRING; 
in  STRING; 
in  STRING; 
in  STRING) ; 


end  FINOPT  DRAWINGS; 
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—  Title 

—  Author 
--  Date 


EXTENDED  SURFACE  HEAT  SINKS  FOR  ELECTRONIC  COMPONENTS 

A  COMPUTER  OPTIMIZATION 
John  Reynold  Gensure 
June  1992 


with     COMMON_DISPLAY_TYPES,  TTY; 

use      COMMON_DISPLAY_TYPES; 

package  body  FINOPT_DRAWINGS  is 

procedure  CYLINDRICAL_DRAWING (DIAMETER_MSG 

HEIGHT_MSG 

PAUSE 

CHAR 

begin 


in  STRING; 
in  STRING)  is 

INTEGER; 

CHARACTER; 


I", 


I", 


TTY. CLEAR  SCREEN; 


TTY. PUT 
TTY. PUT 
TTY . PUT 
TTY. PUT 
TTY. PUT 
TTY . PUT 
TTY . PUT 
TTY. PUT 
TTY . PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY . PUT 
TTY. PUT 
TTY. PUT 


YELLOW,  BLACK) ; 


TTY. PUT 


YELLOW,  RED) ; 


TTY. PUT 
TTY. PUT 


YELLOW,  RED) ; 


TTY. PUT 
TTY. PUT 


YELLOW,  RED) ; 


TTY. PUT 
TTY. PUT 
TTY. PUT 


0,  20, 


YELLOW,  BLACK) 


1,  18,  "/",  YELLOW,  BLACK) ; 

1,  19,  "    /  |",  YELLOW,  RED); 

2,  16,  "/",  YELLOW,  BLACK); 

2,  17,  "    /    |",  YELLOW,  RED); 

3,  14,  "/",  YELLOW,  BLACK); 

3,  15,  "    /      |",  YELLOW,  RED)  ; 

4,  12,  "/",  YELLOW,  BLACK); 

4,  13,  "    /        |",  YELLOW,  RED); 

5,  10,  "/",  YELLOW,  BLACK); 

5,  11,  "    /  |",  YELLOW,  RED) ; 

6,  8,  "/",  YELLOW,  BLACK); 

6,  9,  "    /  |",  YELLOW,  RED) ; 

7,  6,  "/",  YELLOW,  BLACK); 

7,  7,  "_  /  |",  YELLOW,  RED) ; 

8,  5,  "|    |  ",  YELLOW,  RED)  ; 

8,  25,  " 


9,   5,  "| 


/ 


\ 


9,  50,  "\ 
10,   5,  "| 


I",  YELLOW,  BLACK); 
/         \ 


10,  52,  "\ 

11,  5,  "| 


YELLOW,  BLACK) 
I 


FIN 


11,  54,  "     |",  YELLOW,  BLACK); 

11,  61,  DIAMETER_MSG,  YELLOW,  BLACK); 

12,  5,  "|     I     I  I 


YELLOW,  RED) ; 
TTY. PUT  (12,  54, 


|",  YELLOW,  BLACK); 
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TTY.PUT     (13,        5,     " |    W    | 


YELLOW,  RED) ; 

TTY.PUT  (13,     52,  "/ 

TTY.PUT  (14,        5,  " |    A 

YELLOW,  RED) ; 

TTY.PUT  (14,     50,  "/ 

TTY.PUT  (15,        5,  "|     L~ 


I ",  YELLOW,  BLACK) ; 
\     / 


",  YELLOW,  BLACK) ; 

",  YELLOW,  RED) ; 


TTY.PUT  (15,  22,  "/",  YELLOW,  BLACK); 

TTY.PUT  (16,  5,  "|  L  |           |" ,  YELLOW,  RED); 

TTY.PUT  (16,  20,  "/                              |" ,  YELLOW,  BLACK); 

TTY.PUT  (17,  5,  "|     | 

TTY.PUT  (17,  18,  "/I 
BLACK) ; 

TTY.PUT  (18,  5,  "|     | 

TTY.PUT  (18,  16,  "/   |  — 
BLACK) ; 

TTY.PUT  (19,  5,  "|     | 

TTY.PUT  (19,  14,  "/     | 
BLACK) ; 

TTY.PUT  (19,  28,  HEIGHT_MSG,  YELLOW,  BLACK); 

TTY.PUT  (20,  5,  "|    |   " ,  YELLOW,  RED); 

TTY.PUT  (20,  12,  "/        | 

YELLOW,  BLACK) ; 

TTY.PUT  (21,  5,  "| |",  YELLOW,  RED); 


",  YELLOW,  RED); 
",  YELLOW,  RED); 
",  YELLOW,  RED); 


",  YELLOW, 
-|"f  YELLOW, 

I",  YELLOW, 

I", 


TTY.PUT  (21,  10,  "/",  YELLOW,  BLACK); 

TTY.PUT  (23,  27,  "   Press  any  key  to  continue  ",  BLUE,  CYAN); 

TTY.GET  (PAUSE,  CHAR); 


end  CYLINDRICAL_DRAWING; 

procedure  RECTANGULAR_DRAWING (WIDTH_MSG 

LENGTH_MSG 
HEIGHT_MSG 

PAUSE 

CHAR 

begin 


in  STRING; 

:  in  STRING; 
:  in  STRING)  is 

:  INTEGER; 

:  CHARACTER; 


TTY. CLEAR  SCREEN; 


TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY. PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 


25,  " 


",  YELLOW,  BLACK) ; 


23,  "/",  YELLOW,  BLACK); 

24,  "      /I",  YELLOW,  RED) ; 

21,  "/",  YELLOW,  BLACK); 

22,  "      /    |",  YELLOW,  RED) ; 

19,  "/",  YELLOW,  BLACK); 

20,  "      /      |",  YELLOW,  RED) ; 

17,  "/",  YELLOW,  BLACK); 

18,  "      /        |",  YELLOW,  RED) ; 

32,  " ",  YELLOW,  BLACK); 

15,  "/",  YELLOW,  BLACK); 

16,  " /  / 


/  |",  YELLOW, 


RED)  ; 


TTY.PUT  (  5,  53,  " | " ,  YELLOW,  BLACK); 
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RED) 


RED)  ; 


TTY.PUT 

(  6 

,  14, 

"  1 

1          / 

/    |",  YELLOW, 

TTY.PUT 

(  6 

r   53, 

"1", 

YELLOW,  BLACK) ; 

TTY.PUT 

(  6 

,  56, 

WIDTH  MSG,  YELLOW,  BLACK) ; 

TTY.PUT 

(  7 

,  14, 

"  1 

1        / 

/       |",  YELLOW, 

TTY.PUT 

(  7 

,  51, 

"   1 

",  YELLOW,  BLACK); 

TTY.PUT 

(  8 

,  14, 

"1 

1     /                / 

",  YELLOW,  RED 

TTY.PUT 

(  8 

,     46, 

"/", 

YELLOW,  BLACK) ; 

TTY.PUT 

(  9 

,  14, 

"  1 

1   /                / 

",  YELLOW,  RED) ; 

TTY.PUT 

(  9 

,  44, 

"/ 

|",  YELLOW,  BLACK); 

TTY.PUT 

(10 

,  14, 

"  1 

W   |/               / 

",  YELLOW,  RED) ; 

TTY.PUT 

(10 

,    42, 

"/ 

I ",  YELLOW,  BLACK) ; 

TTY.PUT 

(11 

,  14, 

"1 

A                   | 

,  YELLOW,  RED) ; 

TTY.PUT 

(11 

,  40, 

"/ 

I",  YELLOW,  BLACK); 

TTY.PUT 

(12 

r       14, 

"1 

L         FIN        |   ", 

YELLOW,  RED) ; 

TTY.PUT 

(12 

r   38, 

•7 

/|",  YELLOW,  BLACK) ; 

TTY.PUT 

(13 
(13 

-  14, 
,    36, 

"1 
"/ 

L                  |",  YELLOW,  RED) ; 

TTY.PUT 

/   |",  YELLOW,  BLACK); 

TTY.PUT 

(14 

-  14, 

"\ 

I       ",  YELLOW,  RED) ; 

TTY.PUT 

[14 

,  27, 

"/ 

/     |",  YELLOW,  BLACK); 

TTY.PUT 

15 

-  14, 

"1 

I     ",  YELLOW,  RED) ; 

TTY.PUT 

15 

,  25, 

•7 

1      /       1", 

YELLOW,  BLACK) ; 

TTY.PUT 

16 

14, 

"1 

I   ",  YELLOW,  RED) ; 

TTY.PUT 

16, 

23, 

"/ 

I    /",  YELLOW, 

BLACK) ; 

TTY.PUT 

17, 

17, 

14, 
21, 

"1 

|",  YELLOW,  RED) ; 

TTY.PUT 

'7 

I  /",  YELLOW, 

BLACK) ; 

TTY.PUT 

17, 

41, 

LENGTH  MSG,  YELLOW,  BLACK) ; 

TTY.PUT 

18, 

35, 

"1", 

YELLOW,  BLACK) ; 

TTY.PUT 

19, 

20, 

"1 

I",  YELLOW, 

BLACK) ; 

TTY.PUT 

20, 

20, 

"  i 

1  "     VT?T  T  PiTaT 

BLACK) ; 

1 

|   ,   I  L-LiLiUW  , 

TTY.PUT  1 

21, 

20, 

"1", 

YELLOW,  BLACK) ; 

TTY.PUT  | 

21, 

22,  ] 

■iEIGHT  MSG,  YELLOW,  BLACK)  ; 

TTY.PUT  I 

21, 

35, 

"I", 

YELLOW,  BLACK) ; 

TTY.PUT  i 

23, 

27, 

■   P 

ress  any  key  to  continue 

",  BLUE,  CYAN); 

TTY.GET  ( 

PAl 

JSE,  CI 

iAR) 

; 

end  RECTANGULAR  DRAWING; 


procedure  MULTI_FIN_DRAWING (WIDTH_MSG 

LENGTH_MSG 
HEIGHT_MSG 
SPACING_MSG 
WALL_LENGTH_MSG 
WALL  WIDTH  MSG 


in  STRING; 

:  in  STRING; 
:  in  STRING; 
:  in  STRING; 

:  in  STRING; 
:  in  STRING)  is 


PAUSE 
CHAR 


INTEGER; 
CHARACTER; 


begin 


TTY. CLEAR_SCREEN; 

TTY.PUT  (  0,  27,  WALL_WIDTH_MSG,  YELLOW,  BLACK); 

TTY.PUT  (  1,  10, 
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I",  YELLOW, 


BLACK] 


TTY.PUT 


2,   6, 


YELLOW,  BLACK) ; 


TTY.PUT 
TTY. PUT 


TTY. 

TTY. 

"I 

TTY. 

TTY. 

"I 

TTY. 

TTY. 

"I 

TTY. 

TTY. 

"I 

TTY. 

TTY. 

"I 

TTY. 

TTY. 

"I 

TTY. 

TTY. 

TTY. 

"I 

TTY. 

TTY. 

TTY. 

"I 

TTY. 

TTY. 

TTY. 

"I 

TTY. 

TTY. 

TTY. 

"I 

TTY. 

TTY. 

TTY. 

TTY. 

"I 

TTY. 

TTY. 

TTY. 


PUT 
PUT 

l\ 
PUT 
PUT 

I 
PUT 
PUT 

I 
PUT 
PUT 

I 
PUT 
PUT 

I 
PUT 
PUT 

I 
PUT 
PUT 
PUT 

I 
PUT 
PUT 
PUT 

I 
PUT 
PUT 
PUT 
\ 
PUT 
PUT 
PUT 

PUT 
PUT 
PUT 
PUT 

I 
PUT 
PUT 
PUT 


3 
3 

4 
4 

5 
5 

\  \ 
6 
6 
\ 
7 
7 


\ 


TTY, 
TTY. 
TTY, 
TTY, 
TTY, 


PUT 
PUT 
PUT 
PUT 
PUT 


15 
16 
16 

16 

16 


N 


7 
10 

7 
10 

7 
10 

7 
10 
\ 

7 
10 
\   \ 

7 
10 

\ 

7 
10 

59 

7 

10 

62 

7 
10 

62 

7 
10 

62 

7 

10 

62 
64 

7 
10 

62 

6 

10 

k 

62 
14 
24 
35 
36 


YELLOW,  BLACK) ; 


WALL 


"I",  YELLOW,  BLACK) ; 

l\   \         l\   \ 
"I",  YELLOW,  BLACK); 

I   \   \      I   \   \ 
"I",  YELLOW,  BLACK) ; 

I      \   \    I      \   \ 
" |",  YELLOW,  BLACK); 

I        \   \  I        \   \ 
"|B,  YELLOW,  BLACK) ; 


\         \   \         \   \ 

" I ",  YELLOW,  BLACK) ; 

\  _\         \  _\         \  _\ 

" ",  YELLOW,  BLACK); 

"I",  YELLOW,  BLACK); 


I    I 
'I",  YELLOW,  BLACK); 
I",  YELLOW,  BLACK); 


"I" 

■  I  I  II 


II  II 

"I",  YELLOW,  BLACK) ; 
"|",  YELLOW,  BLACK); 


I    I 


I    I 


"|",  YELLOW,  BLACK); 
"I",  YELLOW,  BLACK); 

II  II  II 

" |",  YELLOW,  BLACK) ; 
LENGTH_MSG,  YELLOW,  BLACK) ; 
"| ",  YELLOW,  BLACK) ; 

I    I  \        I    I  \        II 
"|",  YELLOW,  BLACK); 
"  |  ",  YELLOW,  BLACK); 


I    I    \ 


I    \     II 


",  YELLOW,  RED); 


I",  YELLOW,  RED); 


I  ",  YELLOW,  RED)  ; 


I",  YELLOW,  RED); 


I  ",  YELLOW,  RED)  ; 


I",  YELLOW,  RED) ; 


|",  YELLOW,  RED) ; 


I",  YELLOW,  RED) ; 


|",  YELLOW,  RED) ; 


',  YELLOW,  RED)  ; 


I  ",  YELLOW,  RED)  ; 


I ",  YELLOW,  RED) ; 


",  YELLOW,  RED) ; 


"I",  YELLOW,  BLACK); 

"|  \     \",  YELLOW,  BLACK); 

I   |",  YELLOW,  RED) ; 

"\",  YELLOW,  BLACK) ; 

|   |",  YELLOW,  RED) ; 
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TTY.PUT 
TTY. PUT 
TTY.PUT 
TTY. PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY. PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY. PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY. GET 
end  MULTI 


(16 

,     47, 

(16 

,     48, 

(16 

,     62, 

(17 

r     20, 

(17 

r     26, 

(17 

r        37, 

(17 

,     38, 

(17 

-     49, 

(17 

-     50, 

(17 

56, 

(18 

7, 

(18 

22, 

(19, 

24, 

(20, 

26, 

(20, 

28, 

(20, 

45, 

(21, 

26, 

(    3, 

4, 

(    4, 

4, 

(    5, 

4, 

(    6, 

4, 

(    7, 

4, 

(    8, 

4, 

(    9, 

4, 

(10, 

4, 

(11, 

4, 

(12, 

4, 

(13, 

4, 

(14, 

4, 

(15, 

4, 

(23, 

27, 

(PAl 

JSE, 

•\",  YELLOW,  BLACK); 

I    |",  YELLOW,  RED) ; 
'|",  YELLOW,  BLACK) ; 
'\     \",  YELLOW,  BLACK) ; 

'  I |",  YELLOW,  RED)  ; 

•\",  YELLOW,  BLACK); 

'I |",  YELLOW,  RED)  ; 

•\",  YELLOW,  BLACK) ; 

'I | ",  YELLOW,  RED)  ; 

|  ",  YELLOW,  BLACK) 


YELLOW,  BLACK) ; 


HEIGHT_MSG,  YELLOW,  BLACK) ; 

'\",  YELLOW,  BLACK); 

'\  I    I I  I  — I", 

•|",  YELLOW,  BLACK); 
SPACING_MSG,  YELLOW,  BLACK) ; 
WIDTH_MSG,  YELLOW,  BLACK) ; 
"|",  YELLOW,  BLACK); 

WALL_LENGTH_MSG ( 1 ) ,  YELLOW,  BLACK) 
WALL_LENGTH_MSG(2) ,  YELLOW,  BLACK) 
WALL_LENGTH_MSG(3) ,  YELLOW,  BLACK) 
WALL_LENGTH_MSG(4) ,  YELLOW,  BLACK) 
WALL_LENGTH_MSG(5) ,  YELLOW,  BLACK) 
WALL_LENGTH_MSG(6) ,  YELLOW,  BLACK) 
WALL_LENGTH_MSG(7) ,  YELLOW,  BLACK) 
WALL_LENGTH_MSG(8) ,  YELLOW,  BLACK) 
WALL_LENGTH_MSG(9) ,  YELLOW,  BLACK) 
WALL_LENGTH_MSG(10) ,  YELLOW,  BLACK) 
WALL_LENGTH_MSG(11) ,  YELLOW,  BLACK) 
WALL_LENGTH_MSG(12) ,  YELLOW,  BLACK) 
WALL_LENGTH_MSG(13) ,  YELLOW,  BLACK) 
"   Press  any  key  to  continue  ",  BLUE,  CYAN 


FIN  DRAWING; 


end  FINOPT  DRAWINGS; 
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—  Title 

--  Author 

—  Date 


EXTENDED  SURFACE  HEAT  SINKS  FOR  ELECTRONIC  COMPONENTS: 

A  COMPUTER  OPTIMIZATION 
John  Reynold  Gensure 
June  1992 


package  FINOPT  MULTIPLE  is 


procedure  MULTIPLE_NO_OPT (UNITS 

CONVERT_DIST 

CONVERTJTEMP 

G_C 

GRAVITY 

WALL_LENGTH 

WALL_LENGTH_UNITS 

WALL_WIDTH 

WAL  L_W I DT  H_UN ITS 

LENGTH 

LENGTH_UNITS 

HEIGHT 

HEIGHT_UNITS 

WIDTH 

WIDTH_UNITS 

SPACING 

SPACING_UNITS 

NUM_FINS 

NUM_FINS_UNITS 

DENSITY 

DENSITY_UNITS 

SPECIFIC_HEAT 

SPECIFIC_HEAT_UNITS 

K 

K_FLUID 

K_UNITS 

NU 

NU_UNITS 

T_AMBIENT 

T_WALL 

T_UNITS 

Q 

Q  UNITS 


in  INTEGER; 
in  FLOAT; 
in  FLOAT, 
in  FLOAT; 
in  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING) ; 


procedure  MULTIPLE_MAX_FIN (UNITS 

CONVERT_DIST 

CONVERT_TEMP 

G_C 

GRAVITY 

WALL_LENGTH 

WALL_LENGTH_UNITS 

WALL_WIDTH 

WALL_WIDTH_UNITS 

LENGTH 

LENGTH_UNITS 

HEIGHT 

HEIGHTJJNITS 

WIDTH 

WIDTH  UNITS 


in  INTEGER; 
in  FLOAT; 
in  FLOAT; 
in  FLOAT; 
in  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
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SPACING 

SPACING_UNITS 

NUM_FINS 

NUM_FINS_UNITS 

DENSITY 

DENSITY_UNITS 

SPECIFIC_HEAT 

SPECIFIC_HEAT_UNITS 

K 

K_FLUID 

K_UNITS 

NU 

NU_UNITS 

T_AMBIENT 

T_WALL 

TJJNITS 

Q 

Q  UNITS 


in  out  FLOAT 
in  STRING; 
in  out  FLOAT 
in  STRING; 
in  out  FLOAT 
in  STRING; 
in  out  FLOAT 
in  STRING; 
in  out  FLOAT 
in  out  FLOAT 
in  STRING; 
in  out  FLOAT 
in  STRING; 
in  out  FLOAT 
in  out  FLOAT 
in  STRING; 
in  out  FLOAT 
in  STRING) ; 


procedure  MULTIPLE  MAX  Q 


UNITS 

CONVERT_DIST 

CONVERT_TEMP 

G_C 

GRAVITY 

WALL_LENGTH 

WALL_LENGTH_UNITS 

WALL_WIDTH 

WALL_WIDTH_UNITS 

LENGTH 

LENGTH_UNITS 

HEIGHT 

HEIGHT_UNITS 

WIDTH 

WIDTH_UNITS 

SPACING 

SPACING_UNITS 

NUM_FINS 

NUM_FINS_UNITS 

DENSITY 

DENSITY_UNITS 

SPECIFIC_HEAT 

SPECIFIC_HEAT_UNITS 

K 

K_FLUID 

KJJNITS 

NU 

NU_UNITS 

T_AMBIENT 

T_WALL 

T_UNITS 

Q 

Q  UNITS 


in  INTEGER; 
in  FLOAT; 
in  FLOAT, 
in  FLOAT, 
in  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING) ; 


end  FINOPT  MULTIPLE; 
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—  Title 

--  Author 

—  Date 


EXTENDED  SURFACE  HEAT  SINKS  FOR  ELECTRONIC  COMPONENTS 

A  COMPUTER  OPTIMIZATION 
John  Reynold  Gensure 
June  1992 


with     TEXT_IO,  COMMON_DISPLAY_TYPES,  TTY,  CURSOR,  FINOPT_COMMON, 
GENERIC  ELEMENTARY  FUNCTIONS,  FINOPT  PICTURES; 


use      TEXT_IO,  COMMON_DISPLAY_TYPES,  FINOPT_COMMON; 

package  body  FINOPT_MULTIPLE  is 

package  FLOAT_INOUT  is  new  FLOAT_I O ( FLOAT ) ; 
package  MY_ELEMENTARY_FUNCTIONS  is 

new  GENERIC_ELEMENTARY_FUNCTIONS (FLOAT) ; 
use  FLOAT_INOUT,  MY_ELEMENTARY_FUNCTIONS; 

procedure  MULTIPLE_NO_OPT (UNITS 

CONVERT_DIST 

CONVERT_TEMP 

G_C 

GRAVITY 

WALL_LENGTH 

WALL_LENGTH_UNITS 

WALL_WIDTH 

WALL_WIDTH_UNITS 

LENGTH 

LENGTH_UNITS 

HEIGHT 

HEIGHT_UNITS 

WIDTH 

WIDTH_UNITS 

SPACING 

SPACING_UNITS 

NUM_FINS 

NUM_FINS_UNITS 

DENSITY 

DENSITYJJNITS 

SPECIFIC_HEAT 

SPECIFIC_HEAT_UNITS 

K 

K_FLUID 

K_UNITS 

NU 

NU_UNITS 

T_AMBIENT 

T_WALL 

T_UNITS 

Q 

Q_UNITS 

NUMBER  OUT 


CHAR 


in  INTEGER; 
in  FLOAT; 
in  FLOAT; 
in  FLOAT; 
in  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING)  is 

STRING (1. .10)  ; 

CHARACTER; 


PAUSE,  NUM  FINS  INT 


INTEGER; 
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PERIMETER,  AREA,  M,  EFFICIENCY, 

DELTA_T,  T_TIP,  T_AVG,  BETA,  MU, 

RAYLEIGH_CHANNEL,  NUSSELT_CHANNEL,  H, 

AREA  BASE,  AREA  FIN,  AREA  TOTAL  :  FLOAT; 


begin 


18)  ; 


Inputs 


FINOPT_PICTURES . INPUT_MSG; 

GET_INPUT(WALL_LENGTH,  "Length  of  the  fin  placement  area",  32, 

WALL_LENGTH_UNITS,  2,  13); 

GET_INPUT(WALL_WIDTH,  "Width  of  the  fin  placement  area",  31, 

WALL_WIDTH_UNITS,  2,  14); 

GET_INPUT (LENGTH,  "Length  of  each  fin",  18,  LENGTH_UNITS,  2,  15); 

GET_INPUT (HEIGHT,  "Height  of  each  fin",  18,  HEIGHT_UNITS,  2,  16); 

GET_INPUT (WIDTH,  "Width  of  each  fin",  17,  WIDTH_UNITS,  2,  17); 

GET  INPUT (SPACING,  "Spacing  between  fins",  20,  SPACING  UNITS,  2, 


NUM_FINS  :=  (WALL_WIDTH-WIDTH) / (SPACING+WIDTH) ; 

NUM_FINS  :=  NUM_FINS-0 . 49999999999; 

NUM_FINS_INT  :=  INTEGER (NUM_FINS) ; 

NUM_FINS_INT  :=  NUM_FINS_INT+1 ; 

NUM_FINS  :=  FLOAT (NUM_FINS_INT) ; 

GET_INPUT (NUM_FINS,  "Number  of  fins,  default  is  maximum  number", 

41,  NUM_FINS_UNITS,  4,  19); 

TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN); 

TTY.GET  (PAUSE,  CHAR); 

FINOPT_PICTURES . INPUT_CONT_MSG; 

if  (UNITS  =  2)  then 

GET_INPUT (DENSITY,  "Density  of  surrounding  fluid", 

28,  DENSITY_UNITS,  8,  13); 
else 

GET_INPUT (DENSITY,  "Density  of  surrounding  fluid", 

28,  DENSITY_UNITS,  6,  13); 
end  if; 
if  (UNITS  =  2)  then 

GET_INPUT(SPECIFIC_HEAT,  "Specific  heat  of  surrounding  fluid", 

34,  SPECIFIC__HEAT_UNITS,  15,  14); 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

KJJNITS,  17,  15); 

GET_INPUT (K_FLUID, 

"Thermal  conductivity  of  surrounding  fluid,  k",  44, 

K_UNITS,  17,  16); 

GET_INPUT (NU,  "Kinematic  viscosity  of  surrounding  fluid", 

40,  NU_UNITS,  6,  17); 
else 

GET_INPUT(SPECIFIC_HEAT,  "Specific  heat  of  surrounding  fluid", 

34,  SPECIFIC_HEAT_UNITS,  12,  14); 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  11,  15); 

GET_INPUT (K_FLUID, 

"Thermal  conductivity  of  surrounding  fluid,  k",  44, 

K  UNITS,  11,  16) ; 
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GET_INPUT (NU,  "Kinematic  viscosity  of  surrounding  fluid", 

40,  NUJJNITS,  5,  17)  ; 
end  if; 

GET_INPUT (T_AMBIENT,  "Ambient  Temperature",  19,  TJJNITS,  5, 
GET_INPUT(T_WALL,  "Wall  Temperature",  16,  TJJNITS,  5,  19); 
TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN); 
TTY.GET  (PAUSE,  CHAR); 


Calculations  (Assume  Tip  is  Insulated)  and  Length  >>  Width 

T_AVG  : =  ( T_WALL+T_AMBI ENT )  /  2  .  0 ; 
BETA  :=  1.0/ (T_AVG+CONVERT_TEMP) ; 
DELTA_T  :=  T_WALL-T_AMBIENT; 
MU  :=  (NU*DENSITY) /G_C; 

RAYLEIGH_CHANNEL  :=  ( (DENSITY**2 ) *GRAVITY*BETA*SPECIFIC_HEAT 
* ( (SPACING/CONVERT_DIST) *  +  4) *DELTA_T) / (MU* (LENGTH/CONVERT_DIST; 
*K_FLUID) ; 

NUSSELT_CHANNEL  :=  ( ( 57  6 . 0/ (RAYLEIGH_CHANNEL**2 ) ) 
+  (2.873/SQRT(RAYLEIGH_CHANNEL)  )  ) **  (-0.5)  ; 
H  :=  (NUSSELT_CHANNEL*K_FLUID) / (S PACING/ CONVERT_DI ST) ; 
PERIMETER  :=  2 . 0* LENGTH /CONVERT  JDIST; 

AREA  :=  (WIDTH/CONVERT_DIST) * ( LENGTH /CONVERT_DI ST) ; 
M  :=  SQRT( (H* PERIMETER) / (K*AREA) ) ; 
EFFICIENCY  :=  (TANH (M*HEIGHT/CONVERT_DIST) ) 
/ (M*HEIGHT/CONVERT_DIST) ; 
AREA_BASE  := 
( (WALL_WIDTH/CONVERT_DIST) * (WALL_LENGTH/CONVERT_DIST) ) 

- (NUM_FINS* ( LENGTH/ CONVERT_DI ST) * (WIDTH/CONVERT_DIST) ) ; 

AREA_FIN  :=  NUM_FINS* (2 . 0* (HEIGHT/CONVERT_DIST) 

* ( LENGTH/ CONVERT_DI ST) ) ; 

AREA_TOTAL  :=  AREA_BASE+ (EFFICIENCY*AREA_FIN) ; 

Q  :=  H*AREA_TOTAL*DELTA_T; 

T  TIP  :=  T  AMBIENT+(DELTA  T/ COSH (M* HEIGHT/ CONVERT  DIST) ) ; 


Outputs 


FINOPT_PICTURES . OUTPUT_MSG; 

TTY.PUT  (  5,  36,  "  Inputs  ",  BRIGHT_WHITE,  GREEN); 

TTY.PUT  (7,  1,  "Length  of  the  fin  placement  area 

YELLOW,  BLACK) ; 

PUT  (NUMBER_OUT,  WALL_LENGTH,  4,  3); 

TTY.PUT  (  7,  48,  NUMBER_OUT,  YELLOW,  BLACK); 

TTY.PUT  (  7,  59,  WALL_LENGTH_UNITS,  YELLOW,  BLACK); 

TTY.PUT  (  8,  1,  "Width  of  the  fin  placement  area 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  WALL_WIDTH,  4,  3); 

TTY.PUT  (  8,  48,  NUMBER_OUT,  YELLOW,  BLACK); 

TTY.PUT  (  8,  59,  WALL_WIDTH_UNITS,  YELLOW,  BLACK); 

TTY.PUT  (  9,  1,  "Length  of  each  fin 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  LENGTH,  4,  3) ; 

TTY.PUT  (  9,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (  9,  59,  LENGTHJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (10,  1,  "Height  of  each  fin 
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YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (10,  4  8 
TTY.PUT  (10,  59 
TTY.PUT  (11,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (11,  4  8 
TTY.PUT  (11,  59 
TTY.PUT  (12,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (12,  4  8 
TTY.PUT  (12,  59 
TTY.PUT  (13,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (13,  48 
TTY.PUT  (13,  59 
TTY.PUT  (14,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (14,  4  8 
TTY.PUT  (14,  59 
TTY.PUT  (15,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (15,  48 
TTY.PUT  (15,  59 
TTY.PUT  (16,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (16,  48 
TTY.PUT  (16,  59 
TTY.PUT  (17,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (17,  4  8 
TTY.PUT  (17,  59 
TTY.PUT  (18,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (18,  48 
TTY.PUT  (18,  59 
TTY.PUT  (19,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (19,  48 
TTY.PUT  (19,  59 
TTY.PUT  (20,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (20,  48 
TTY.PUT  (20,  59 
TTY.PUT  (23,  27 
TTY.GET  (PAUSE, 


HEIGHT,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
HEIGHTJJNITS,  YELLOW,  BLACK) ; 
"Width  of  each  fin 

WIDTH,  4,  3) ; 

NUMBERJDUT,  YELLOW,  BLACK) ; 
WIDTHJJNITS,  YELLOW,  BLACK) ; 
"Spacing  between  fins 

SPACING,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
SPACINGJJNITS,  YELLOW,  BLACK) ; 
"Number  of  fins 

NUM_FINS,  4,  3)  ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
NUM_FINS_UNITS,  YELLOW,  BLACK) ; 
"Density  of  surrounding  fluid 

DENSITY,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
DENSITYJJNITS,  YELLOW,  BLACK); 
"Specific  heat  of  surrounding  fluid 

SPECIFICJHEAT,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
SPECIFIC_HEAT_UNITS,  YELLOW,  BLACK) ; 
"Thermal  conductivity  of  material,  k 

K,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
KJJNITS,  YELLOW,  BLACK) ; 
"Thermal  conductivity  of  surrounding  fluid,  k 

K_FLUID,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
KJJNITS,  YELLOW,  BLACK); 
"Kinematic  viscosity  of  surrounding  fluid 

NU,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
NUJJNITS,  YELLOW,  BLACK); 
"Ambient  Temperature 

T_AMBIENT,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
TJJNITS,  YELLOW,  BLACK) ; 
"Wall  Temperature 

T_WALL,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
TJJNITS,  YELLOW,  BLACK) ; 

"  Press  any  key  to  continue  ",  BLUE,  CYAN) ; 
CHAR)  ; 
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FINOPT_PICTURES. 
TTY.PUT  (  6,  35, 
TTY.PUT  (8,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT, 
TTY.PUT  (  8,  48, 
TTY.PUT  (  8,  59, 
TTY.PUT  (9,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT, 
TTY.PUT  (  9,  48, 
TTY.PUT  (10,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT, 
TTY.PUT  (10,  48, 
TTY.PUT  (10,  59, 
TTY.PUT  (11,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT, 
TTY.PUT  (11,  48, 
TTY.PUT  (12,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT, 
TTY.PUT  (12,  48, 
TTY.PUT  (23,  27, 
TTY.GET  (PAUSE, 


OUTPUT_CONT_MSG; 

"  Outputs  ",  BRIGHT_WHITE,  GREEN); 
"Heat  transferred  away  by  the  fins,  q 

Q,  4,  3); 

NUMBER_OUT,  YELLOW,  BLACK) ; 
QJJNITS,  YELLOW,  BLACK) ; 
"The  fin  efficiency 

EFFICIENCY,  4,  3 ) ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
"The  temperature  at  the  tip  of  the  fins 

TJTIP,  4,  3)  ; 

NUMBER_OUT,  YELLOW,  BLACK) ; 
T_UNITS,  YELLOW,  BLACK) ; 
"Channel  Rayleigh  number 

RAYLEIGH_CHANNEL,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
"Channel  Nusselt  number 

NUSSELT_CHANNEL,  4,  3 ) ; 

NUMBERJDUT,  YELLOW,  BLACK) ; 

"  Press  any  key  to  continue  ",  BLUE,  CYAN) ; 

CHAR)  ; 


end  MULTIPLE  NO  OPT; 


procedure  MULTIPLE_MAX_FIN (UNITS 

CONVERT_DIST 

CONVERT  JTEMP 

G_C 

GRAVITY 

WALL_LENGTH 

WALL_LENGTH_UNITS 

WALL_WIDTH 

WALL_WIDTH_UNITS 

LENGTH 

LENGTH_UNITS 

HEIGHT 

HEIGHT_UNITS 

WIDTH 

WIDTH_UNITS 

SPACING 

SPACING_UNITS 

NUM_FINS 

NUM_FINS_UNITS 

DENSITY 

DENSITY_UNITS 

SPECIFIC_HEAT 

SPECIFIC_HEAT_UNITS 

K 

K_FLUID 

K_UNITS 

NU 


in  INTEGER; 
in  FLOAT, 
in  FLOAT, 
in  FLOAT, 
in  FLOAT, 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
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NUJJNITS 
T_AMBIENT 
T_WALL 
T_UNITS 

Q 

Q  UNITS 


NUMBER  OUT 


CHAR 


PAUSE,  NUM_FINS_INT 

PERIMETER,  AREA,  M,  EFFICIENCY, 
DELTA_T,  T_TIP,  T_AVG,  BETA,  MU, 
RAYLEIGH_CHANNEL,  NUSSELT_CHANNEL,  H, 
AREA  BASE,  AREA  FIN,  AREA  TOTAL,  P 


in  STRING; 
in  out  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING)  is 

STRING (1. .  10)  ; 

CHARACTER; 

INTEGER; 


FLOAT ; 


begin 


Inputs 


FINOPT_PICTURES . INPUT_MSG; 

GET_INPUT(WALL_LENGTH,  "Length  of  the  fin  placement  area",  32, 

WALL_LENGTH_UNITS,  2,  14); 

GET_INPUT(WALL_WIDTH,  "Width  of  the  fin  placement  area",  31, 

WALL_WIDTH_UNITS,  2,  15); 

GET_INPUT (LENGTH,  "Length  of  each  fin",  18,  LENGTH_UNITS,  2,  16); 

GET_INPUT (HEIGHT,  "Height  of  each  fin",  18,  HEIGHT_UNITS,  2,  17); 

GET_INPUT (WIDTH,  "Width  of  each  fin",  17,  WIDTH_UNITS,  2,  18); 

if  (UNITS  =  2)  then 

GET_INPUT (DENSITY,  "Density  of  surrounding  fluid",  28, 

DENSITY_UNITS,  8,  19); 
else 

GET_INPUT (DENSITY,  "Density  of  surrounding  fluid",  28, 

DENSITYJJNITS,  6,  19); 
end  if; 

TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN); 
TTY.GET  (PAUSE,  CHAR); 
FINOPT_PICTURES . INPUT_CONT_MSG; 
if  (UNITS  =  2)  then 

GET_INPUT(SPECIFIC_HEAT,  "Specific  heat  of  surrounding  fluid", 

34,  HPECIFICJIEATJJNITS,  15,  14); 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  17,  15); 

GET_INPUT (K_FLUID, 

"Thermal  conductivity  of  surrounding  fluid,  k",  44, 

KJJNITS,  17,  16)  ; 

GET_INPUT (NU,  "Kinematic  viscosity  of  surrounding  fluid", 

40,  NUJJNITS,  6,  17); 
else 

GET_INPUT(SPECIFIC_HEAT,  "Specific  heat  of  surrounding  fluid", 

34,  SPECIFIC_HEAT_UNITS,  12,  14); 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K  UNITS,  11,  15) ; 
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GET_INPUT (K_FLUID, 

"Thermal  conductivity  of  surrounding  fluid,  k",  44, 

K_UNITS,  11,  16); 

GET_INPUT (NU,  "Kinematic  viscosity  of  surrounding  fluid", 

40,  NU_UNITS,  5,  17); 
end  if; 

GET_INPUT (T_AMBIENT,  "Ambient  Temperature",  19,  TJJNITS,  5,  18); 
GET_INPUT (T_WALL,  "Wall  Temperature",  16,  TJJNITS,  5,  19); 
TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN); 
TTY.GET  (PAUSE,  CHAR); 


Calculations  (Assume  Tip  is  Insulated)  and  Length  >>  Width 

T_AVG  : =  ( T_WALL+T_AMBI ENT ) / 2 . 0 ; 
BETA  : =  1.0/ (T_AVG+CONVERT_TEMP) ; 
DELTA_T  :=  T_WALL-T_AMBIENT; 
MU  :=  (NU*DENSITY) /G_C; 

P  :=  ( (DENSITY**2) *GRAVITY*BETA*SPECIFIC_HEAT*DELTA_T) 
/ (MU* ( LENGTH/ CONVERT_DI ST) *K_FLUID) ; 
SPACING  :=  CONVERTJDIST* (4.64/ (P** (0.25) )) ; 
NUM_FINS  :=  (WALL_WIDTH-WIDTH) / (SPACING+WIDTH) ; 
NUM_FINS  :=  NUM_FINS-0 . 49999999999; 
NUM_FINS_INT  :  =  INTEGER (NUM_FINS) ; 
NUM_FINS_INT  :=  NUM_FINS_INT+1 ; 
NUM_FINS  :=  FLOAT (NUM_FINS_INT) ; 

RAYLEIGH_CHANNEL  :=  ( (DENSITY**2 ) *GRAVITY*BETA*SPECIFIC_HEAT 
* ( (SPACING/CONVERT_DIST) **4) *DELTA_T) / (MU* ( LENGTH/ CONVERT_DI ST) 
*K_FLUID) ; 

NUSSELT_CHANNEL  :=  ( ( 57  6 . 0/ (RAYLEIGH_CHANNEL**2 ) ) 
+(2.873/SQRT(RAYLEIGH_CHANNEL) ) ) ** (-0.5) ; 
H  :=  (NUSSELT_CHANNEL*K_FLUID) / (SPACING/CONVERT_DIST) ; 
PERIMETER  :=  2 . 0*LENGTH/CONVERT_DIST; 
AREA  :=  (WIDTH/CONVERT_DIST)* (LENGTH/CONVERT_DIST) ; 
M  :=  SQRT( (H* PERIMETER) / (K*AREA) ) ; 
EFFICIENCY  :=  (TANH (M*HEIGHT/CONVERT_DIST) ) 
/ (M*HEIGHT/CONVERT_DIST) ; 
AREA_BASE  := 
(WALL_WIDTH/CONVERT_DIST)* (WALL_LENGTH/CONVERT_DIST) ) 

- (NUM_FINS* (LENGTH/CONVERT_DIST) * (WIDTH/CONVERT_DIST) ) ; 

AREA_FIN  :=  NUM_FINS* (2 . 0* (HEIGHT/CONVERT_DIST) 

* (LENGTH/CONVERT_DIST) ) ; 

AREA_TOTAL  :=  AREA_BASE+ (EFFICIENCY*AREA_FIN) ; 

Q  :=  H*AREA_TOTAL*DELTA_T; 

T  TIP  :=  T  AMBIENT+(DELTA  T/COSH (M*HEIGHT/CONVERT  DIST) ) ; 


Outputs 

FINOPT_PICTURES . OUTPUT_MSG; 

TTY.PUT  (  5,  36,  "  Inputs  ",  BRIGHT_WHITE,  GREEN); 

TTY.PUT  (  7,  1,  "Length  of  the  fin  placement  area 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  WALL_LENGTH,  4,  3); 

TTY.PUT  (  7,  48,  NUMBER_OUT,  YELLOW,  BLACK); 

TTY.PUT  (  7,  59,  WALL  LENGTH  UNITS,  YELLOW,  BLACK); 
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TTY.PUT  (8,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (8,  4  8 
TTY.PUT  (  8,  59 
TTY.PUT  (9,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (9,  4  8 
TTY.PUT  (  9,  59 
TTY.PUT  (10,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (10,  48 
TTY.PUT  (10,  59 
TTY.PUT  (11,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (11,  4  8 
TTY.PUT  (11,  59 
TTY.PUT  (12,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (12,  4  8 
TTY.PUT  (12,  59 
TTY.PUT  (13,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (13,  48 
TTY.PUT  (13,  59 
TTY.PUT  (14,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (14,  48 
TTY.PUT  (14,  59 
TTY.PUT  (15,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (15,  4  8 
TTY.PUT  (15,  59 
TTY.PUT  (16,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (16,  48 
TTY.PUT  (16,  59 
TTY.PUT  (17,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (17,  48 
TTY.PUT  (17,  59 
TTY.PUT  (18,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (18,  4  8 
TTY.PUT  (18,  59 
TTY.PUT  (23,  27 


"Width  of  the  fin  placement  area 

WALL_WIDTH,  4,  3 )  ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
WALL_WIDTH_UNITS,  YELLOW,  BLACK) ; 
"Length  of  each  fin 

LENGTH,  4,  3 ) ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
LENGTH  JJNITS,  YELLOW,  BLACK)  ; 
"Height  of  each  fin 

HEIGHT,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
HEIGHT  JJNITS,  YELLOW,  BLACK)  ; 
"Width  of  each  fin 

WIDTH,  4,  3) ; 

NUMBERJDUT,  YELLOW,  BLACK) ; 

WIDTHJJNITS,  YELLOW,  BLACK) ; 

"Density  of  surrounding  fluid 

DENSITY,  4,  3)  ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
DENSITYJJNITS,  YELLOW,  BLACK) ; 
"Specific  heat  of  surrounding  fluid 

SPECIFIC_HEAT,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
SPECIFIC_HEAT_UNITS,  YELLOW,  BLACK) ; 
"Thermal  conductivity  of  material,  k 

K,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
KJJNITS,  YELLOW,  BLACK); 
"Thermal  conductivity  of  surrounding  fluid,  k 

K_FLUID,  4,  3) ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
KJJNITS,  YELLOW,  BLACK); 
"Kinematic  viscosity  of  surrounding  fluid 

NU,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
NUJJNITS,  YELLOW,  BLACK) ; 
"Ambient  Temperature 

T_AMBIENT,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
TJJNITS,  YELLOW,  BLACK) ; 
"Wall  Temperature 

T_WALL,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 

TJJNITS,  YELLOW,  BLACK) ; 

"  Press  any  key  to  continue  ",  BLUE,  CYAN) ; 
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TTY.GET  (PAUSE, 
FINOPT_PICTURES. 
TTY.PUT  (  6,  35, 
TTY.PUT  (8,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT, 
TTY.PUT  (  8,  48, 
TTY.PUT  (  8,  59, 
TTY.PUT  (9,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT, 
TTY.PUT  (  9,  48, 
TTY.PUT  (  9,  59, 
TTY.PUT  (10,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT, 
TTY.PUT  (10,  48, 
TTY.PUT  (10,  59, 
TTY.PUT  (11,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT, 
TTY.PUT  (11,  48, 
TTY.PUT  (12,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT, 
TTY.PUT  (12,  48, 
TTY.PUT  (12,  59, 
TTY.PUT  (13,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT, 
TTY.PUT  (13,  48, 
TTY.PUT  (14,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT, 
TTY.PUT  (14,  48, 
TTY.PUT  (23,  27, 
TTY.GET  (PAUSE, 


CHAR) ; 

OUTPUT  JDONTJMSG; 

"  Outputs  ",  BRIGHTJWHITE,  GREEN); 
"Heat  transferred  away  by  the  fins,  q 

Q,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
QJJNITS,  YELLOW,  BLACK) ; 
"Spacing  between  fins 

SPACING,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
SPACINGJJNITS,  YELLOW,  BLACK) ; 
"Number  of  fins 

NUM_FINS,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
NUM_FINS_UNITS,  YELLOW,  BLACK) ; 
"The  fin  efficiency 

EFFICIENCY,  4,  3)  ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
"The  temperature  at  the  tip  of  the  fins 

TJTIP,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
TJJNITS,  YELLOW,  BLACK) ; 
"Channel  Rayleigh  number 

RAYLEIGH_CHANNEL,  4,  3 ) ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
"Channel  Nusselt  number 

NUSSELT_CHANNEL,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 

"  Press  any  key  to  continue  ",  BLUE,  CYAN) ; 
CHAR)  ; 


end  MULTIPLE  MAX  FIN; 


procedure  MULTIPLEJMAXjQ  (UNITS 

CONVERT_DIST 

CONVERTJTEMP 

G_C 

GRAVITY 

WALL_LENGTH 

WALL_LENGTH_UNITS 

WALLJWIDTH 

WALLJWIDTHJUNITS 

LENGTH 

LENGTHJJNITS 

HEIGHT 

HEIGHTJUNITS 

WIDTH 

WIDTHJUNITS 

SPACING 


in  INTEGER; 
in  FLOAT; 
in  FLOAT; 
in  FLOAT; 
in  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
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SPACINGJJNITS 

NUM_FINS 

NUM_FINS_UNITS 

DENSITY 

DENSITY_UNITS 

SPECIFIC_HEAT 

SPECIFIC_HEAT_UNITS 

K 

K_FLUID 

K_UNITS 

NU 

NUJJNITS 

T_AMBIENT 

T_WALL 

T_UNITS 

Q 

Q  UNITS 


in  STRING; 
in  out  FLOAT 
in  STRING; 
in  out  FLOAT 
in  STRING; 
in  out  FLOAT 
in  STRING; 
in  out  FLOAT 
in  out  FLOAT 
in  STRING; 
in  out  FLOAT 
in  STRING; 
in  out  FLOAT 
in  out  FLOAT 
in  STRING; 
in  out  FLOAT 
in  STRING)  is 


NUMBER  OUT 


CHAR 


PAUSE,  NUM  FINS  INT 


STRING(1. . 10) ; 

CHARACTER; 

INTEGER; 


PERIMETER,  AREA,  M,  EFFICIENCY, 
DELTA_T,  T_TIP,  T_AVG,  BETA,  MU, 
RAYLEIGH_CHANNEL,  NUSSELT_CHANNEL, 
AREA  BASE,  AREA  FIN,  AREA  TOTAL,  P 


H, 


begin 


FLOAT  ; 


Inputs 


FINOPT_PICTURES . INPUT_MSG; 

GET_INPUT(WALL_LENGTH,  "Length  of  the  fin  placement  area",  32, 

WALL_LENGTH_UNITS,  2,  14); 

GET_INPUT(WALL_WIDTH,  "Width  of  the  fin  placement  area",  31, 

WALL_WIDTH_UNITS,  2,  15); 

GET_INPUT (LENGTH,  "Length  of  each  fin",  18,  LENGTHJJNITS,  2,  16); 

GET_INPUT (HEIGHT,  "Height  of  each  fin",  18,  HEIGHT_UNITS,  2,  17); 

GET_INPUT (WIDTH,  "Width  of  each  fin",  17,  WIDTH_UNITS,  2,  18); 

if  (UNITS  =  2)  then 

GET_INPUT (DENSITY,  "Density  of  surrounding  fluid",  28, 

DENSITY_UNITS,  8,  19); 
else 

GET_INPUT (DENSITY,  "Density  of  surrounding  fluid",  28, 

DENSITY_UNITS,  6,  19); 
end  if; 

TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN) ; 
TTY.GET  (PAUSE,  CHAR) ; 
FINOPT_PICTURES . INPUT_CONT_MSG; 
if  (UNITS  =  2)  then 

GET_INPUT(SPECIFIC_HEAT,  "Specific  heat  of  surrounding  fluid", 

34,  SPECIFIC_HEAT_UNITS,  15,  14); 

GET  INPUT (K,  "Thermal  conductivity  of  material,  k",  35, 
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K_UNITS,  17,  15); 

GET_INPUT (K_FLUID, 

"Thermal  conductivity  of  surrounding  fluid,  k",  44, 

K_UNITS,  17,  16) ; 

GET_INPUT (NU,  "Kinematic  viscosity  of  surrounding  fluid", 

40,  NU_UNITS,  6,  17) ; 
else 

GET_INPUT (SPECIFIC_HEAT,  "Specific  heat  of  surrounding  fluid", 

34,  SPECIFIC_HEAT_UNITS,  12,  14); 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  11,  15) ; 

GET_INPUT (K_FLUID, 

"Thermal  conductivity  of  surrounding  fluid,  k",  44, 

K_UNITS,  11,  16)  ; 

GET_INPUT (NU,  "Kinematic  viscosity  of  surrounding  fluid", 

40,  NU_UNITS,  5,  17)  ; 
end  if; 

GET_INPUT(T_AMBIENT,  "Ambient  Temperature",  19,  T_UNITS,  5,  18); 
GET_INPUT(T_WALL,  "Wall  Temperature",  16,  T_UNITS,  5,  19); 
TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN); 
TTY.GET  (PAUSE,  CHAR); 


Calculations  (Assume  Tip  is  Insulated)  and  Length  >>  Width 

T_AVG  : =  ( T_WALL+T_AMBI ENT )  /  2  .  0 ; 
BETA  : =  1.0/ (T_AVG+CONVERT_TEMP) ; 
DELTAJT  :=  T_WALL-T_AMBIENT; 
MU  :=  (NU*DENSITY)/G_C; 

P  :=  ( (DENSITY**2)*GRAVITY*BETA*SPECIFIC_HEAT*DELTA_T) 
/ (MU* ( LENGTH/ CONVERT_DI ST) *K_FLUID) ; 
SPACING  :  =  CONVERT_DIST* (2.714/ (P** (0.25) )) ; 
NUM_FINS  :=  (WALL_WIDTH-WIDTH) / ( SPACING+WIDTH) ; 
NUM_FINS  :=  NUM_FINS-0 . 49999999999; 
NUM_FINS_INT  :=  INTEGER (NUM_FINS) ; 
NUM_FINS_INT  :=  NUM_FINS_INT+1 ; 
NUM_FINS  :=  FLOAT (NUM_FINS_INT) ; 

RAYLEIGH_CHANNEL  :=  ( (DENSITY**2 ) *GRAVITY*BETA*SPECIFIC_HEAT 
* ( (SPACING/CONVERT_DIST) **4) *DELTA_T) / (MU* ( LENGTH /CONVERT_DI ST] 
*K_FLUID) ; 

NUSSELT_CHANNEL  :=  ( ( 576 . 0/ (RAYLEIGH_CHANNEL**2 ) ) 
+  (2.873/SQRT(RAYLEIGH_CHANNEL)  )  ) **  (-0.5)  ; 
H  :=  (NUSSELT_CHANNEL*K_FLUID) / (SPACING/CONVERT_DIST) ; 
PERIMETER  :=  2 . 0 * LENGTH/ CONVERT_DI ST; 
AREA  :=  (WIDTH/CONVERT_DIST) * (LENGTH/CONVERT_DIST) ; 
M  :=  SQRT( (H* PERIMETER) / (K* AREA) ) ; 
EFFICIENCY  :=  (TANH (M*HEIGHT/CONVERT_DIST) ) 
/ (M*HEIGHT/CONVERT_DIST) ; 
AREA_BASE  := 
(WALL_WIDTH/CONVERT_DIST) * (WALL_LENGTH/CONVERT_DIST) ) 

- (NUM_FINS* (LENGTH/CONVERT_DIST) * (WIDTH/CONVERT_DIST) ) ; 

AREA_FIN  :=  NUM_FINS* (2 . 0* (HEIGHT/CONVERT_DIST) 

* ( LENGTH/ CONVERT_DI ST) ) ; 

AREA_TOTAL  :=  AREA_BASE+ (EFFICIENCY*AREA_FIN) ; 

Q  :=  H *AREA_TOTAL* DELTAJT; 

T  TIP  :=  T  AMBIENT+ (DELTA  T/COSH (M*HEIGHT/CONVERT  DIST)); 
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Outputs 


FINOPT_PICTURES . 
TTY.PUT  (  5,  36, 
TTY.PUT  (7,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (7,  4  8 
TTY.PUT  (  7,  59 
TTY.PUT  (8,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (8,  4  8 
TTY.PUT  (  8,  59 
TTY.PUT  (9,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (9,  4  8 
TTY.PUT  (  9,  59 
TTY.PUT  (10,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (10,  48 
TTY.PUT  (10,  59 
TTY.PUT  (11,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (11,  4  8 
TTY.PUT  (11,  59 
TTY.PUT  (12,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (12,  4  8 
TTY.PUT  (12,  59 
TTY.PUT  (13,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (13,  48 
TTY.PUT  (13,  59 
TTY.PUT  (14,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (14,  4  8 
TTY.PUT  (14,  59 
TTY.PUT  (15,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (15,  48 
TTY.PUT  (15,  59 
TTY.PUT  (16,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (16,  48 
TTY.PUT  (16,  59 


OUTPUTJMSG; 

"  Inputs  ",  BRIGHTJWHITE,  GREEN) ; 
"Length  of  the  fin  placement  area 

WALL_LENGTH,  4,  3 ) ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
WALL_LENGTH_UNITS,  YELLOW,  BLACK) ; 
"Width  of  the  fin  placement  area 

WALLJWIDTH,  4,  3)  ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
WALL_WIDTH_UNITS,  YELLOW,  BLACK) ; 
"Length  of  each  fin 

LENGTH,  4,  3) ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
LENGTHJJNITS,  YELLOW,  BLACK) ; 
"Height  of  each  fin 

HEIGHT,  4,  3) ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
HEIGHTJUNITS,  YELLOW,  BLACK); 
"Width  of  each  fin 

WIDTH,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 

WIDTHJUNITS,  YELLOW,  BLACK) ; 

"Density  of  surrounding  fluid 

DENSITY,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
DENSITYJJNITS,  YELLOW,  BLACK) ; 
"Specific  heat  of  surrounding  fluid 

SPECIFIC_HEAT,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
SPECIFIC_HEAT_UNITS,  YELLOW,  BLACK) ; 
"Thermal  conductivity  of  material,  k 

K,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
KJJNITS,  YELLOW,  BLACK) ; 
"Thermal  conductivity  of  surrounding  fluid,  k 

K_FLUID,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
KJJNITS,  YELLOW,  BLACK) ; 
"Kinematic  viscosity  of  surrounding  fluid 

NU,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 

NU  UNITS,  YELLOW,  BLACK) ; 
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TTY.PUT  (17,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (17,  4  8 
TTY.PUT  (17,  59 
TTY.PUT  (18,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (18,  4  8 
TTY.PUT  (18,  59 
TTY.PUT  (23,  27 
TTY.GET  (PAUSE, 
FINOPT_PICTURES 
TTY.PUT  (  6,  35 
TTY.PUT  (8,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (8,  4  8 
TTY.PUT  (  8,  59 
TTY.PUT  (9,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (9,  4  8 
TTY.PUT  (  9,  59 
TTY.PUT  (10,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (10,  48 
TTY.PUT  (10,  59 
TTY.PUT  (11,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (11,  48 
TTY.PUT  (12,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (12,  4  8 
TTY.PUT  (12,  59 
TTY.PUT  (13,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (13,  48 
TTY.PUT  (14,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (14,  4  8 
TTY.PUT  (23,  27 
TTY.GET  (PAUSE, 


"Ambient  Temperature 

T_AMBIENT,  4,  3) ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
TJJNITS,  YELLOW,  BLACK) ; 
"Wall  Temperature 

T_WALL,  4,  3)  ; 

NUMBERJDUT,  YELLOW,  BLACK) ; 

TJJNITS,  YELLOW,  BLACK) ; 

"  Press  any  key  to  continue  ",  BLUE,  CYAN); 
CHAR) ; 
OUT  PUT  JDONT _MS G ; 

"  Outputs  ",  BRIGHT_WHITE,  GREEN); 
"Heat  transferred  away  by  the  fins,  q 

Q,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
QJJNITS,  YELLOW,  BLACK)  ; 
"Spacing  between  fins 

SPACING,  4,  3)  ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
SPACING  JJNITS,  YELLOW,  BLACK)  ; 
"Number  of  fins 

NUM_FINS,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
NUM_FINS  JJNITS,  YELLOW,  BLACK)  ; 
"The  fin  efficiency 

EFFICIENCY,  4,  3 ) ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
"The  temperature  at  the  tip  of  the  fins 

TJTIP,  4,  3)  ; 

NUMBERJDUT,  YELLOW,  BLACK) ; 
TJJNITS,  YELLOW,  BLACK) ; 
"Channel  Rayleigh  number 

RAYLEIGHjDHANNEL,  4,  3 ) ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
"Channel  Nusselt  number 

NUSSELTJDHANNEL,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 

"  Press  any  key  to  continue  ",  BLUE,  CYAN) ; 
CHAR)  ; 


end  MULTIPLEJMAX_Q; 
end  FINOPT  MULTIPLE; 
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—  Title 

--  Author 

—  Date 


EXTENDED  SURFACE  HEAT  SINKS  FOR  ELECTRONIC  COMPONENTS 

A  COMPUTER  OPTIMIZATION 
John  Reynold  Gensure 
June  1992 


package  FINOPT_PICTURES  is 

procedure  THESIS_MSG; 

procedure  FINOPT_MSG; 

procedure  INPUT_MSG; 

procedure  INPUT_CONT_MSG; 

procedure  OUTPUT_MSG; 

procedure  OUTPUT_CONT_MSG; 

procedure  EXIT_MSG; 
end  FINOPT  PICTURES; 
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—  Title 

—  Author 

—  Date 


EXTENDED  SURFACE  HEAT  SINKS  FOR  ELECTRONIC  COMPONENTS; 

A  COMPUTER  OPTIMIZATION 
John  Reynold  Gensure 
June  1992 


with     COMMON_DISPLAY_TYPES,  TTY,  CURSOR; 
use      COMMON_DISPLAY_TYPES; 
package  body  FINOPT_PICTURES  is 
procedure  THESIS_MSG  is 

PAUSE 

CHAR 


INTEGER; 
CHARACTER; 


begin 

CURSOR. INHIBIT; 

TTY . CLEAR_SCREEN ; 

TTY. PUT   (2,  28,  "NAVAL  POSTGRADUATE  SCHOOL",  YELLOW,  BLACK); 

TTY. PUT   (4,  31,  "Monterey,  California",  YELLOW,  BLACK); 

TTY. PUT   (6,  37,  "THESIS",  YELLOW,  BLACK); 

TTY. PUT   (8,  16,  " 


YELLOW,  RED 

TTY. PUT  (  9 

YELLOW,  RED 

TTY. PUT  (10 

YELLOW,  RED 

TTY. PUT  (11 

YELLOW,  RED 

TTY. PUT  (12 

YELLOW,  RED 

TTY. PUT  (13 

YELLOW,  RED 

TTY. PUT  (14 

YELLOW,  RED 

TTY. PUT  (15 

YELLOW,  RED 

TTY. PUT  (16 

YELLOW,  RED 

TTY. PUT  (17 

YELLOW,  RED 

TTY. PUT  (18 

YELLOW,  RED 


16, 
16, 
16, 
16, 
16, 
16, 
16, 
16, 
16, 
16, 


EXTENDED  SURFACE  HEAT  SINKS 


FOR  ELECTRONIC  COMPONENTS 


A  COMPUTER  OPTIMIZATION 


by 


John  Reynold  Gensure 


June  1992 
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TTY.PUT  (19,  16,  "   Thesis  Advisor: 


Allan  D.  Kraus 


YELLOW,  RED) ; 
TTY.PUT  (20,  16,  " 

YELLOW,  RED) ; 

TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN); 

TTY.GET  (PAUSE,  CHAR); 

end  THESIS  MSG; 


procedure  FINOPT_MSG  is 
PAUSE 
CHAR 


INTEGER; 
CHARACTER; 


begin 

TTY. CLEAR  ! 

SCREEN; 

TTY.PUT 

4 

,  34,  ' 

Welcome  To",  GREEN,  BLACK) ; 

TTY.PUT 

8 

18,  ' 

",  YELLOW,  GREEN); 

TTY.PUT 

8 

24,  ' 

",  YELLOW,  GREEN) 

TTY.PUT 

8 

27,  ' 

",  YELLOW,  GREEN), 

TTY.PUT 

8, 

31,  ' 

",  YELLOW,  GREEN), 

TTY.PUT 

8 

34,  ' 

",  YELLOW,  GREEN) ; 

TTY.PUT 

8 

41,  ' 

",  YELLOW,  GREEN) ; 

TTY.PUT 

8 

48,  ' 

",  YELLOW,  GREEN); 

TTY.PUT 

8 

55,  ' 

",  YELLOW,  GREEN), 

TTY.PUT 

8 

58,  ' 

",  YELLOW,  GREEN) 

TTY.PUT 

8 

,  61,  ' 

",  YELLOW,  GREEN) 

TTY.PUT 

9 

,  18,  ' 

",  YELLOW,  GREEN) 

TTY.PUT 

9 

24,  • 

",  YELLOW,  GREEN) 

TTY.PUT 

,9 

-  27,  ' 

",  YELLOW,  GREEN) ; 

TTY.PUT 

9 

31,  ' 

",  YELLOW,  GREEN) 

TTY.PUT 

9 

34,  ' 

",  YELLOW,  GREEN) 

TTY.PUT 

9 

,  38,  ' 

",  YELLOW,  GREEN) 

TTY.PUT 

9 

41,  ' 

",  YELLOW,  GREEN) 

TTY.PUT 

9 

,    45,  ' 

",  YELLOW,  GREEN) 

TTY.PUT 

9 

,  50,  ' 

",  YELLOW,  GREEN) 

TTY.PUT 

9 

,  55,  ' 

",  YELLOW,  GREEN) 

TTY.PUT 

9 

,  58,  ' 

",  YELLOW,  GREEN) 

TTY.PUT 

9 

,  61,  ' 

",  YELLOW,  GREEN) 

TTY.PUT 

11 

),  18, 

",  YELLOW,  GREEN); 

TTY.PUT 

1( 

),  24, 

"  ",  YELLOW,  GREEN) ; 

TTY.PUT 

K 

),  27, 

"  ",  YELLOW,  GREEN) ; 

TTY.PUT 

[1< 

h    29, 

"  ",  YELLOW,  GREEN); 

TTY.PUT 

1( 

),  31, 

"  ",  YELLOW,  GREEN) ; 

TTY.PUT 

11 

),  34, 

"  ",  YELLOW,  GREEN) ; 

TTY.PUT 

[1< 

h    38, 

"  ",  YELLOW,  GREEN); 

TTY.PUT 

fl( 

),  41, 

",  YELLOW,  GREEN) ; 

TTY.PUT 

1( 

h    50, 

"  ",  YELLOW,  GREEN) ; 

TTY.PUT 

1( 

),  55, 

"  ",  YELLOW,  GREEN) ; 

TTY.PUT 

1( 

),  58, 

"  ",  YELLOW,  GREEN) ; 

TTY.PUT 

1( 

),  61, 

"  ",  YELLOW,  GREEN) ; 

TTY.PUT 

i: 

L,  18, 

"  ",  YELLOW,  GREEN); 

TTY.PUT 

i: 

L,  24, 

"  ",  YELLOW,  GREEN) 
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TTY 

PUT 

(11 

,  27, 

1   11 

TTY 

PUT 

(11 

,  30, 

t      11 

TTY 

PUT 

(11 

,  34, 

l    tl 

TTY 

PUT 

(11 

,  38, 

'    "/ 

TTY 

PUT 

(11 

-  41, 

t    li 

TTY. 

PUT 

(11 

50, 

l    ll 

TTY. 

PUT 

(12 

18, 

1    tl 

TTY. 

PUT 

(12 

24, 

'    "  / 

TTY. 

PUT 

(12 

27, 

1    "  / 

TTY. 

PUT 

(12 

31, 

1    "f 

TTY. 

PUT 

(12 

34, 

f 

TTY. 

PUT 

(12 

41, 

1    II 

TTY. 

PUT 

(12 

50, 

l    tl 

TTY. 

PUT 

(12 

55, 

1    ll 

TTY. 

PUT 

(12 

58, 

1    II 

TTY. 

PUT 

(12 

61, 

1    It 

TTY. 

PUT 

(17, 

26, 

'Ver 

TTY. 

PUT 

(19 

24, 

•Wri 

TTY. 

PUT 

(23 

26,  "   P 

TTY. 

GET 

(PAl 

JSE,  CI 

iAR) 

YELLOW,  GREEN) ; 

YELLOW,  GREEN) 

YELLOW,  GREEN) ; 


YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 


YELLOW, 
YELLOW, 
"YELLOW, 
YELLOW, 


GREEN) ; 

GREEN) ; 

GREEN) ; 

GREEN) ; 

GREEN) ; 

GREEN) ; 

GREEN) ; 
",  YELLOW,  GREEN); 
YELLOW,  GREEN) ; 

GREEN) ; 

GREEN) ; 

GREEN) ; 

GREEN) ; 
sion  1.0  dated  June  1992",  GREEN,  BLACK); 
tten  by  John  Reynold  Gensure",  GREEN,  BLACK); 
ress  any  key  to  continue  ",  BLUE,  CYAN) ; 


end  FINOPT  MSG; 


procedure  INPUT_MSG  is 


begin 

TTY . CLEAR_SCREEN ; 
TTY. PUT  (  1,  19, 


TTY. PUT 


TTY. 
TTY. 
TTY. 
TTY. 
TTY. 
TTY. 
TTY. 
TTY. 
TTY, 
TTY. 
TTY. 
TTY. 
TTY. 
TTY. 
TTY. 


PUT  ( 

PUT  ( 

PUT  ( 

PUT  ( 

PUT  ( 

PUT  ( 

PUT  ( 

PUT  ( 

PUT  ( 

PUT  ( 

PUT  ( 

PUT  ( 

PUT  ( 

PUT  ( 

PUT  ( 


TTY. PUT  (11 

It 

TTY. PUT  (  3 

YELLOW,  RED 

TTY. PUT  (  4 
BRIGHT_WHITE, 

TTY. PUT  (  5 

YELLOW,  RED 

TTY. PUT  (  6 


19, 

19,  " 

58,  " 

19,  " 

58,  " 

19,  " 

58,  " 

19,  " 

58,  " 

19,  " 

58,  " 

19,  " 

58,  " 

19,  " 

58,  " 
19, 

19, 

22,  " 

22,  " 

RED)  ; 

22,  " 


",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

",  YELLOW, 

CYAN) 

YELLOW,  CYAN) ; 


YELLOW,  CYAN) ; 


YELLOW,  CYAN) 


YELLOW,  CYAN) ; 


Required  Inputs 


22,  "   Press  enter  to  choose  default  or   ", 
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YELLOW,  RED) 

TTY.PUT  (  7, 

YELLOW,  RED) 

TTY.PUT  (  6, 

YELLOW,  RED) 

TTY.PUT  (  7, 

YELLOW,  RED) 

TTY.PUT  (  8, 
BRIGHT_WHITE 

TTY.PUT  (  9, 

YELLOW,  RED) 


22, 

22, 

22, 

22, 

RED 
22, 


any  other  key  to  input  new  value. 
All  values  must  be  inputted  as 
floats.  Examples:  5.0  or  2.0E-3 
Do  not  input  0.8  as  .8  !!! 


end  INPUT_MSG; 

procedure  INPUT_CONT_MSG  is 

begin 

TTY . CLEAR_SCREEN ; 
TTY.PUT  (  1,  19, 


TTY.PUT  (  2,  19, 

■I 

TTY.PUT  (  3 

TTY.PUT  (  3 

TTY.PUT  (  4 

TTY.PUT  (  4 

TTY.PUT  (  5 

TTY.PUT  (  5 

TTY.PUT  (  6 

TTY.PUT  (  6 

TTY.PUT  (  7 

TTY.PUT  (  7 

TTY.PUT  (  8 

TTY.PUT  (  8 

TTY.PUT  (  9 

TTY.PUT  (  9 

TTY.PUT  (10 

TTY.PUT  (11 

■  I 

TTY.PUT  (  3 
YELLOW,  RED 
TTY.PUT  (  4,  22, 
BRIGHT_WHITE,  RED 
TTY.PUT  (  5,  22, 
YELLOW,  RED 
TTY.PUT  (  6,  22, 
YELLOW,  RED 
TTY.PUT  (  7,  22, 
YELLOW,  RED 
TTY.PUT  (  6,  22, 
YELLOW,  RED 
TTY.PUT  (  7,  22, 
YELLOW,  RED 
TTY.PUT  (  8,  22, 
BRIGHT  WHITE,  RED 


YELLOW,  CYAN) ; 
YELLOW,  CYAN); 


19, 

I        II 

,  YELLOW, 

CYAN) 

58, 

1       II 

,  YELLOW, 

CYAN) 

19, 

1       II 

,  YELLOW, 

CYAN) 

58, 

1       11 

,  YELLOW, 

CYAN) 

19, 

1       II 

,  YELLOW, 

CYAN) 

58, 

II       11 

,  YELLOW, 

CYAN) 

19, 

1       II 

,  YELLOW, 

CYAN) 

58, 

II       II 

,  YELLOW, 

CYAN) 

19, 

1       II 

,  YELLOW, 

CYAN) 

58, 

1       II 

,  YELLOW, 

CYAN) 

19, 

1       11 

,  YELLOW, 

CYAN) 

58, 

1       11 

,  YELLOW, 

CYAN) 

19, 

1       11 

,  YELLOW, 

CYAN) 

58,  " 

,  YELLOW, 

CYAN) 

19, 

19, 

22, 

I 

YELLOW,  CYAN) ; 
YELLOW,  CYAN); 


Required  Inputs  Continued 

Press  enter  to  choose  default  or 
any  other  key  to  input  new  value, 
All  values  must  be  inputted  as 
floats.  Examples:  5.0  or  2.0E-3 
Do  not  input  0.8  as  .8  !  !  ! 
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TTY.PUT  (  9,  22,  " 
YELLOW,  RED) ; 

end  INPUT_CONT_MSG; 

procedure  OUTPUT_MSG  is 

begin 

TTY. CLEAR  SCREEN; 


TTY.PUT 
TTY.PUT 
TTY. PUT 
TTY.PUT 
TTY.PUT 


1,  26, 

2,  26, 

2,  53, 

3,  26, 
2,  28, 


",  YELLOW,  CYAN) ; 
",  YELLOW,  CYAN) ; 

Inputs  =>  Outputs 


",  YELLOW,  CYAN) ; 


",  YELLOW,  CYAN); 
",  BRIGHT  WHITE,  RED) ; 


end  OUTPUT_MSG; 

procedure  OUTPUT_CONT_MSG  is 

begin 


TTY. CLEAR  SCREEN; 


TTY. 

PUT 

1, 

26,  ' 

TTY. 

PUT 

2, 

26,  ' 

TTY. 

PUT 

2, 

53,  ' 

TTY. 

PUT 

3, 

26,  ' 

TTY. 

PUT 

3, 

53,  ' 

TTY. 

PUT 

4, 

26,  ' 

TTY. 

PUT 

2, 

28,  ' 

TTY. 

PUT 

3, 

28,  ' 

end  OUTPUT_CONT_MSG; 
procedure  EXIT_MSG  is 
begin 

TTY. CLEAR  SCREEN; 


TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY.PUT 
TTY . PUT 
TTY.PUT 
YELLOW, 
TTY.PUT 
YELLOW, 
TTY . PUT 
YELLOW, 
TTY.PUT 
YELLOW, 
TTY.PUT 


(11,  18, 
(11,  58, 
(12,  18, 
(12,  58, 
(13,  18, 
(13,  58, 
(  9,  18, 
CYAN) ; 
(10,  18, 
CYAN) ; 
(14,  18, 
CYAN) ; 
(15,  18, 
CYAN) ; 
(11,  21, 


YELLOW,  CYAN); 

YELLOW,  CYAN) ; 

YELLOW,  CYAN) ; 

YELLOW,  CYAN) ; 

Inputs  =>  Outputs 
Continued 


",  YELLOW,  CYAN) ; 


",  YELLOW,  CYAN) ; 

',  BRIGHT_WHITE,  RED)  ; 
',  BRIGHT  WHITE,  RED)  ; 


YELLOW,  CYAN) 

YELLOW,  CYAN) 

YELLOW,  CYAN) 

YELLOW,  CYAN) 

YELLOW,  CYAN) 

YELLOW,  CYAN) 


",  YELLOW, 


RED) 
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TTY.PUT  (12,  21,  "  Thank  you  for  using  FINOPT  !!!  ",  YELLOW, 
RED)  ; 

TTY.PUT  (13,  21,  "  ",  YELLOW, 

RED)  ; 

end  EXIT_MSG; 

end  FINOPT  PICTURES; 
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—  Title 

—  Author 

—  Date 


EXTENDED  SURFACE  HEAT  SINKS  FOR  ELECTRONIC  COMPONENTS 

A  COMPUTER  OPTIMIZATION 
John  Reynold  Gensure 
June  1992 


package  FINOPT_SINGLE  is 

procedure  CYLINDRICAL_NO_OPT (UNITS 

CONVERT_DIST 

DIAMETER 

DIAMETERJJNITS 

HEIGHT 

HEIGHT_UNITS 

H 

HJJNITS 

K 

K_UNITS 

T_AMBIENT 

T_WALL 

T_UNITS 

Q 

Q_UNITS 

procedure  CYLINDRICAL_GIVEN_VOL (UNITS 
INTEGER; 

CONVERT_DIST 

VOLUME 
FLOAT  ; 

VOLUME_UNITS 

DIAMETER 
FLOAT  ; 

DIAMETER_UNITS 

HEIGHT 
FLOAT ; 

HEIGHT_UNITS 

H 
FLOAT ; 

H_UNITS 

K 
FLOAT  ; 

K_UNITS 

T_AMBIENT 
FLOAT ; 

T_WALL 
FLOAT ; 

T_UNITS 

Q 
FLOAT ; 

Q_UNITS 
STRING) ; 

procedure  CYLINDRICAL_GIVEN_Q (UNITS 

CONVERT_DIST 
DIAMETER 
FLOAT  ; 

DIAMETER  UNITS 


in  INTEGER; 
in  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING) ; 

:  in 

:  in  FLOAT; 
:  in  out 

:  in  STRING; 
:  in  out 

:  in  STRING; 
:  in  out 

:  in  STRING; 
:  in  out 

:  in  STRING; 
:  in  out 

:  in  STRING; 
:  in  out 

:  in  out 

:  in  STRING; 
:  in  out 

:  in 


in  INTEGER; 
in  FLOAT; 
in  out 

in  STRING; 
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FLOAT  ; 

FLOAT  ; 

FLOAT  ; 

FLOAT; 
FLOAT  ; 

FLOAT  ; 


HEIGHT 

HEIGHT_UNITS 
H 

H_UNITS 
K 

K_UNITS 
T_AMBIENT 

T_WALL 

T_UNITS 
Q 

Q  UNITS 


in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  out 

in  STRING; 
in  out 

in  STRING) ; 


procedure  RECTANGULAR_NO_OPT (UNITS 

CONVERT_DIST 

LENGTH 

LENGTH_UNITS 

HEIGHT 

HEIGHT_UNITS 

WIDTH 

WIDTH_UNITS 

H 

H_UNITS 

K 

K_UNITS 

T_AMBIENT 

T_WALL 

T_UNITS 

Q 
Q_UNITS 

procedure  RECTANGULAR_GIVEN_VOL (UNITS 

INTEGER; 

CONVERT_DIST 
VOLUME 

FLOAT ; 

VOLUME_UNITS 
LENGTH 

FLOAT  ; 

LENGTH_UNITS 
HEIGHT 

FLOAT ; 

HEIGHT_UNITS 
WIDTH 

FLOAT ; 

WIDTH_UNITS 
H 

FLOAT  ; 

H  UNITS 


in  INTEGER; 
in  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING) ; 

:  in 

:  in  FLOAT; 
:  in  out 

:  in  STRING; 
:  in  out 

:  in  STRING; 
:  in  out 

:  in  STRING; 
:  in  out 

:  in  STRING; 
:  in  out 

:  in  STRING; 
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FLOAT  ; 

FLOAT ; 
FLOAT ; 

FLOAT ; 
STRING) ; 


K 

UNITS 

t" 

"AMBIENT 

T 

_WALL 

T 

_UNITS 

q" 

Q 

UNITS 

procedure  RECTANGULAR_GIVEN_Q (UNITS 

CONVERT_DIST 
LENGTH 

LENGTH_UNITS 
HEIGHT 

HEIGHT_UNITS 
WIDTH 

WIDTH_UNITS 
H 

H_UNITS 
K 

K_UNITS 
T_AMBIENT 

T_WALL 

T_UNITS 
Q 


FLOAT ; 

FLOAT ; 

FLOAT  ; 

FLOAT  ; 

FLOAT  ; 

FLOAT  ; 
FLOAT  ; 

FLOAT  ; 

end  FINOPT  SINGLE; 


Q  UNITS 


in  out 

in  STRING; 

in  out 

in  out 

in  STRING; 
in  out 

in 


in  INTEGER; 
in  FLOAT; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  out 

in  STRING; 
in  out 

in  STRING) ; 
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—  Title 

--  Author 

—  Date 


EXTENDED  SURFACE  HEAT  SINKS  FOR  ELECTRONIC  COMPONENTS 

A  COMPUTER  OPTIMIZATION 
John  Reynold  Gensure 
June  1992 


with     TEXT_IO,  COMMON_DISPLAY_TYPES,  TTY,  CURSOR,  FINOPT_COMMON, 
GENERIC  ELEMENTARY  FUNCTIONS,  FINOPT  PICTURES; 


use      TEXT_IO,  COMMON_DISPLAY_TYPES,  FINOPT_COMMON; 

package  body  FINOPT_SINGLE  is 

package  FLOAT_INOUT  is  new  FLOAT_IO ( FLOAT) ; 
package  MY_ELEMENTARY_FUNCTIONS  is 

new  GENERIC_ELEMENTARY_FUNCTIONS (FLOAT) ; 
use  FLOAT_INOUT,  MY_ELEMENTARY_FUNCTIONS; 

procedure  CYLINDRICAL_NO_OPT (UNITS 

CONVERT_DIST 

DIAMETER 

DIAMETER_UNITS 

HEIGHT 

HEIGHT_UNITS 

H 

H_UNITS 

K 

KJJNITS 

T_AMBIENT 

T_WALL 

T_UNITS 

Q 

Q  UNITS 


in  INTEGER; 
in  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING)  is 


NUMBER_OUT 
STRING (1. . 10) ; 


CHAR 
PAUSE 


CHARACTER; 
INTEGER; 


PERIMETER,  AREA,  M,  EFFICIENCY, 
DELTA  T,  T  TIP 


FLOAT ; 


PI   :  constant  := 
3.14159_26535_89793_23846_26433_83279_50288_41972 

begin 


Inputs 

FINOPT_PICTURES . INPUT_MSG; 

GET_INPUT( DIAMETER,  "Diameter  of  the  cylindrical  spine",  33, 

DIAMETER_UNITS,  2,  14); 

GET_INPUT (HEIGHT,  "Height  of  the  cylindrical  spine",  31, 

HEIGHT  UNITS,  2,  15) ; 
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if  (UNITS  =  2)  then 

GET_INPUT(H,  "Convection  heat  transfer  coefficient,  h",  39, 

H_UNITS,  19,  16); 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  17,  17) ; 
else 

GET_INPUT(H,  "Convection  heat  transfer  coefficient,  h",  39, 

H_UNITS,  13,  16)  ; 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  11,  17) ; 
end  if; 

GET_INPUT(T_AMBIENT,  "Ambient  Temperature",  19, 
TJJNITS,  5,  18); 

GET_INPUT(T_WALL,  "Wall  Temperature",  16, 
T_UNITS,  5,  19)  ; 

TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN); 
TTY.GET  (PAUSE,  CHAR); 


Calculations  (Assume  Tip  is  Insulated) 

PERIMETER  :=  PI* DIAMETER/ CONVERTJDI ST; 

AREA  :=  (PI* ( (DIAMETER/ CONVERT_DIST) **2) ) /4.0; 

M  :=  SQRT( (H* PERIMETER) / (K*AREA) ) ; 

DELTA_T  :=  T_WALL-T_AMBIENT; 

Q  :=  K*AREA*M*DELTA_T*TANH(M*HEIGHT/CONVERT_DIST) ; 

EFFICIENCY  :=  (TANH (M* HEIGHT /CONVERT_DI ST) ) 

/ (M*HEIGHT/CONVERT_DIST) ; 

T  TIP  :=  T  AMBIENT+ (DELTA  T/COSH (M* HEIGHT /CONVERT  DIST) ) ; 


Outputs 


FINOPT_PI CTURES . OUTPUT_MSG ; 

TTY.PUT  (  5,  36,  "  Inputs  ",  BRIGHT_WHITE,  GREEN); 

TTY.PUT  (  7,  1,  "Diameter  of  the  cylindrical  spine 

YELLOW,  BLACK) ; 

PUT  (NUMBERjDUT,  DIAMETER,  4,  3); 

TTY.PUT  (  7,  48,  NUMBERjDUT,  YELLOW,  BLACK); 

TTY.PUT  (  7,  59,  DIAMETER_UNITS,  YELLOW,  BLACK); 

TTY.PUT  (  8,  1,  "Height  of  the  cylindrical  spine 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  HEIGHT,  4,  3); 

TTY.PUT  (  8,  48,  NUMBERjDUT,  YELLOW,  BLACK); 

TTY.PUT  (  8,  59,  HEIGHTJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (  9,  1,  "Convection  heat  transfer  coefficient,  h 

YELLOW,  BLACK) ; 

PUT  (NUMBERjDUT,  H,  4,  3); 

TTY.PUT  (  9,  48,  NUMBERjDUT,  YELLOW,  BLACK); 

TTY.PUT     (    9,     59,    HJJNITS,    YELLOW,     BLACK); 

TTY.PUT  (10,  1,  "Thermal  conductivity  of  material,  k 

YELLOW,  BLACK) ; 

PUT  (NUMBERjDUT,  K,  4,  3); 

TTY.PUT  (10,  48,  NUMBERjDUT,  YELLOW,  BLACK); 

TTY.PUT     (10,     59,     KJJNITS,    YELLOW,    BLACK); 

TTY.PUT  (11,  1,  "Ambient  Temperature 
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YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  T_AMBIENT,  4,  3 ) ; 

TTY.PUT  (11,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (11,  59,  T_UNITS,  YELLOW,  BLACK); 

TTY.PUT  (12,  1,  "Wall  Temperature 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  T_WALL,  4,  3); 

TTY.PUT  (12,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (12,  59,  TJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (14,  35,  "  Outputs  ",  BRIGHT_WHITE,  GREEN); 

TTY.PUT  (16,  1,  "Heat  transferred  away  by  the  fin,  q 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  Q,  4,  3); 

TTY.PUT  (16,  48,  NUMBER _OUT,  YELLOW,  BLACK); 

TTY.PUT  (16,  59,  QJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (17,  1,  "The  fin  efficiency 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  EFFICIENCY,  4,  3); 

TTY.PUT  (17,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (18,  1,  "The  temperature  at  the  tip 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  TJTIP,  4,  3); 

TTY.PUT  (18,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (18,  59,  TJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE, 

TTY.GET  (PAUSE,  CHAR); 


CYAN) ; 


end  CYLINDRICAL  NO  OPT; 


procedure  CYLINDRICAL JGIVENJVOL (UNITS 
INTEGER; 

CONVERT  JDI ST 

VOLUME 
FLOAT  ; 

VOLUME  JJNITS 

DIAMETER 
FLOAT ; 

DIAMETERJUNITS 

HEIGHT 
FLOAT ; 

HEIGHTJJNITS 

H 
FLOAT ; 

HJJNITS 

K 
FLOAT ; 

KJJNITS 

T_AMBIENT 
FLOAT ; 

T_WALL 
FLOAT ; 

TJJNITS 

Q 
FLOAT  ; 

QJJNITS 
is 


:  in 

:  in  FLOAT; 

:  in  out 

:  in  STRING; 

:  in  out 

:  in  STRING; 

:  in  out 

:  in  STRING; 

:  in  out 

:  in  STRING; 

:  in  out 

:  in  STRING; 

:  in  out 

:  in  out 

:  in  STRING; 

:  in  out 

:  in  STRING) 
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NUMBERjDUT  : 

STRING (1.  .  10)  ; 

CHAR  "  :  CHARACTER; 

PAUSE  :  INTEGER; 

PERIMETER,  AREA,  M,  EFFICIENCY, 

DELTA_T,  T_TIP  :  FLOAT; 

PI   :  constant  := 
3. 14159_26535_89793_23846_26433_83279_50288_41972  ; 

begin 


Inputs 


FINOPT_PICTURES . INPUT_MSG; 

GET_INPUT (VOLUME,  "Volume  of  the  cylindrical  spine",  31, 

VOLUME_UNITS,  4,  14); 

if  (UNITS  =  2)  then 

GET_INPUT(H,  "Convection  heat  transfer  coefficient,  h",  39, 

H_UNITS,  19,  15) ; 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  17,  16); 
else 

GET_INPUT(H,  "Convection  heat  transfer  coefficient,  h",  39, 

HJJNITS,  13,  15) ; 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  11,  16); 
end  i  f ; 

GET_INPUT(T_AMBIENT,     "Ambient    Temperature",     19,    ■ 
TJJNITS,     5,     17); 

GET_INPUT(T_WALL,  "Wall  Temperature",  16, 
T_UNITS,  5,  18)  ; 

TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN); 
TTY.GET  (PAUSE,  CHAR); 


Calculations  (Assume  Tip  is  Insulated) 


DIAMETER  :=  CONVERT_DIST* 1 . 5031* (H/K* (VOLUME 

/CONVERT_DIST**3)**2)** (0.2)  ; 

HEIGHT  :=  CONVERT_DIST*0 . 5636* ( (VOLUME 

/CONVERT_DIST**3) * (K/H) **2) ** (0.2)  ; 

PERIMETER  :=  PI* DIAMETER/ CONVERT_DI ST; 

AREA  :=  (PI* ( ( DIAMETER/ CONVERT_DI ST) **2) ) /4.0; 

M  :=  SQRT( (H* PERIMETER) / (K*AREA) ) ; 

DELTA_T  :=  T_WALL-T_AMBIENT; 

Q  :=  K*AREA*M*DELTA_T*TANH(M*HEIGHT/CONVERT_DIST) ; 

EFFICIENCY  :=  (TANH (M*HEIGHT/CONVERT_DIST) ) 

/ (M*HEIGHT/CONVERT_DIST) ; 

T  TIP  :=  T  AMBIENT+ (DELTA  T/COSH (M*HEIGHT/CONVERT  DIST) ) ; 
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Outputs 


FINOPT_PICTURES. 
TTY.PUT  (  5,  36, 
TTY.PUT  (7,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (7,  4  8 
TTY.PUT  (7,  59 
TTY.PUT  (8,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (8,  4  8 
TTY.PUT  (  8,  59 
TTY.PUT  (9,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (9,  4  8 
TTY.PUT  (  9,  59 
TTY.PUT  (10,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (10,  4  8 
TTY.PUT  (10,  59 
TTY.PUT  (11,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT 
TTY.PUT  (11,  48 


TTY.PUT 
TTY.PUT 
TTY.PUT 

YELLOW, 


(11,  59 
(13,  35 
(15,  1, 
BLACK) ; 


PUT  (NUMBERJDUT 
TTY.PUT  (15,  4  8 
TTY.PUT  (15,  59 
TTY.PUT  (16,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (16,  48 
TTY.PUT  (16,  59 
TTY.PUT  (17,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (17,  4  8 
TTY.PUT  (17,  59 
TTY.PUT  (18,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (18,  4  8 
TTY.PUT  (19,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (19,  4  8 
TTY.PUT  (19,  59 
TTY.PUT  (23,  27 


OUTPUT _MSG; 

"  Inputs  ",  BRIGHTJWHITE,  GREEN); 
"Volume  of  the  cylindrical  spine 

VOLUME,  4,  3) ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
VOLUMEJJNITS,  YELLOW,  BLACK) ; 
"Convection  heat  transfer  coefficient,  h 

H,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
HJJNITS,  YELLOW,  BLACK) ; 
"Thermal  conductivity  of  material,  k 

K,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
KJJNITS,  YELLOW,  BLACK) ; 
"Ambient  Temperature 

T_AMBIENT,  4,  3)  ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
TJUNITS,  YELLOW,  BLACK) ; 
"Wall  Temperature 

TJWALL,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
TJUNITS,  YELLOW,  BLACK) ; 
"  Outputs  ",  BRIGHTJWHITE,  GREEN); 
"Optimum  diameter  of  the  cylindrical  spine 

DIAMETER,  4,  3)  ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
DIAMETERJJNITS,  YELLOW, ' BLACK) ; 
"Optimum  height  of  the  cylindrical  spine 

HEIGHT,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
HEIGHTJJNITS,  YELLOW,  BLACK) ; 
"Heat  transferred  away  by  the  fin,  q 

Q,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
QJJNITS,  YELLOW,  BLACK)  ; 
"The  fin  efficiency 

EFFICIENCY,  4,  3); 
NUMBERJDUT,  YELLOW,  BLACK) ; 
"The  temperature  at  the  tip 

TJTIP,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 

TJUNITS,  YELLOW,  BLACK) ; 

"  Press  any  key  to  continue  ",  BLUE,  CYAN) ; 
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TTY.GET  (PAUSE,  CHAR) ; 

end  CYLINDRICAL_GIVEN_VOL; 

procedure  CYLINDRICAL_GIVEN_Q (UNITS 

CONVERT  DIST 


DIAMETER 

DIAMETER_UNITS 
HEIGHT 


FLOAT ; 

FLOAT ; 

FLOAT ; 

FLOAT ; 

FLOAT ; 
FLOAT ; 

FLOAT ; 

is 

NUMBER_OUT 
STRING (1. .  10)  ; 

CHAR 

PAUSE 


PERIMETER,  AREA,  M,  EFFICIENCY, 
DELTA_T,  T_TIP 

PI   :  constant  := 
3.14159  26535  89793  23846  26433  83279  50288  41972  ; 


HEIGHT  UNITS 

H 

H 

UNITS 

K 

K 

UNITS 

T_ 

_AMBIENT 

T_ 

_WALL 

T 

UNITS 

Q 

Q 

UNITS 

begin 


in  INTEGER; 
in  FLOAT; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  out 

in  STRING; 
in  out 

in  STRING) 


CHARACTER; 
INTEGER; 

FLOAT; 


Inputs 


FINOPT_PICTURES . INPUT_MSG; 
if  (UNITS  =  2)  then 

GET_INPUT(Q,  "Heat  transferred  away  by  the  fin,  q",  35, 

QJJNITS,  6,  14); 

GET_INPUT(H,  "Convection  heat  transfer  coefficient,  h",  39, 

H_UNITS,  19,  15) ; 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  17,  16) ; 
else 

GET  INPUT (Q,  "Heat  transferred  away  by  the  fin,  q",  35, 
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Q_UNITS,  1,  14); 

GET_INPUT(H,  "Convection  heat  transfer  coefficient,  h",  39, 

H_UNITS,  13,  15) ; 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

KJJNITS,  11,16); 
end  if; 

GET_INPUT (T_AMBIENT,  "Ambient  Temperature",  19, 
T_UNITS,  5,  17); 

GET_INPUT (T_WALL,  "Wall  Temperature",  16, 
T_UNITS,  5,  18); 

TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN); 
TTY.GET  (PAUSE,  CHAR); 


Calculations  (Assume  Tip  is  Insulated) 

DIAMETER  :=  CONVERT_DIST*0 . 9165* ( (Q**2 ) 

/ (H*K* ( (T_WALL-T_AMBIENT) **2) ) ) ** (1.0/3.0) ; 

HEIGHT  :=  CONVERT  JDI  ST  *0 . 4400* ( (Q*K) 

/ ( (H**2) * (T_WALL-T_AMBIENT)  ) )**  (1.0/3.0)  ; 

PERIMETER    :=    PI*  DIAMETER/ CONVERTJDI  ST; 

AREA    :=     (PI* ( ( DIAMETER/ CONVERT_DI ST) **2) ) /4.0; 

M    :=    SQRT( (H*PERIMETER) / (K*AREA) ) ; 

DELTA_T    :=   T_WALL-T_AMBIENT; 

Q    :=    K*AREA*M*DELTA_T*TANH(M*HEIGHT/CONVERT_DIST) ; 

EFFICIENCY  :=  (TANH (M*HEIGHT/CONVERT_DIST) ) 

/ (M*HEIGHT/CONVERT_DIST)  ; 

T  TIP  :=  T  AMBIENT+ (DELTA  T/COSH (M*HEIGHT/CONVERT  DIST) ) ; 


Outputs 


FINOPT_PICTURES.OUTPUT_MSG; 

TTY.PUT  (  5,  36,  "  Inputs  ",  BRIGHT_WHITE,  GREEN); 

TTY.PUT  (  7,  1,  "Heat  transferred  away  by  the  fin,  q 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  Q,  4,  3) ; 

TTY.PUT  (  7,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (  7,  59,  QJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (  8,  1,  "Convection  heat  transfer  coefficient,  h 

YELLOW,  BLACK) ; 

PUT  (NUMBER_OUT,  H,  4,  3); 

TTY.PUT  (  8,  48,  NUMBER_OUT,  YELLOW,  BLACK); 

TTY.PUT  (  8,  59,  H_UNITS,  YELLOW,  BLACK); 

TTY.PUT  (  9,  1,  "Thermal  conductivity  of  material,  k 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  K,  4,  3); 

TTY.PUT  (  9,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (  9,  59,  KJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (10,  1,  "Ambient  Temperature 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  T_AMBIENT,  4,  3); 

TTY.PUT  (10,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (10,  59,  TJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (11,  1,  "Wall  Temperature 

YELLOW,  BLACK) ; 
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PUT  (NUMBER_OUT, 
TTY.PUT  (11,  48, 


TTY. PUT 
TTY. PUT 
TTY. PUT 
YELLOW, 


(11,  59, 
(13,  35, 
(15,  1, 
BLACK) ; 


PUT  (NUMBER_OUT, 
TTY.PUT  (15,  48, 
TTY.PUT  (15,  59, 
TTY.PUT  (16,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT, 
TTY.PUT  (16,  48, 
TTY.PUT  (16,  59, 
TTY.PUT  (17,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT, 
TTY.PUT  (17,  48, 
TTY.PUT  (18,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBER_OUT, 
TTY.PUT  (18,  48, 
TTY.PUT  (18,  59, 
TTY.PUT  (23,  27, 
TTY. GET  (PAUSE, 


T_WALL,  4,  3)  ; 

NUMBERJDUT,  YELLOW,  BLACK) ; 
TJJNITS,  YELLOW,  BLACK) ; 
"  Outputs  ",  BRIGHT_WHITE,  GREEN); 
"Optimum  diameter  of  the  cylindrical  spine 

DIAMETER,  4,  3 ) ; 
NUMBER_OUT,  YELLOW,  BLACK) ; 
DIAMETER_UNITS,  YELLOW,  BLACK) ; 
"Optimum  height  of  the  cylindrical  spine 

HEIGHT,  4,  3); 
NUMBER_OUT,  YELLOW,  BLACK) ; 
HEIGHT_UNITS,  YELLOW,  BLACK) ; 
"The  fin  efficiency 

EFFICIENCY,  4,  3 ) ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
"The  temperature  at  the  tip 

T_TIP,  4,  3); 

NUMBER_OUT,  YELLOW,  BLACK) ; 
T_UNITS,  YELLOW,  BLACK); 

"  Press  any  key  to  continue  ",  BLUE,  CYAN) ; 
CHAR)  ; 


end  CYLINDRICAL  GIVEN  (De- 


procedure RECTANGULAR_NO_OPT (UNITS 

CONVERT_DIST 

LENGTH 

LENGTH_UNITS 

HEIGHT 

HEIGHT_UNITS 

WIDTH 

WIDTH_UNITS 

H 

H_UNITS 

K 

KJJNITS 

T_AMBIENT 

T_WALL 

T_UNITS 

Q 

Q  UNITS 


in  INTEGER; 
in  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  out  FLOAT; 
in  STRING; 
in  out  FLOAT; 
in  STRING)  is 


NUMBERJDUT 
STRING (1.  .10)  ; 


CHAR 


PAUSE 


CHARACTER; 
INTEGER; 


PERIMETER,  AREA,  M,  EFFICIENCY, 
DELTA  T,  T  TIP 


FLOAT  ; 
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begin 


Inputs 


FINOPT_PICTURES . INPUT_MSG; 

GET_INPUT (LENGTH,  "Length  of  the  rectangular  fin",  29, 

LENGTH_UNITS,  2,  14); 

GET_INPUT (HEIGHT,  "Height  of  the  rectangular  fin",  29, 

HEIGHTJJNITS,  2,  15); 

GET_INPUT (WIDTH,  "Width  of  the  rectangular  fin",  28, 

WIDTHJJNITS,  2,  16); 

if  (UNITS  =  2)  then 

GET_INPUT(H,  "Convection  heat  transfer  coefficient,  h",  39, 

H_UNITS,  19,  17); 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  17,  18); 
else 

GET_INPUT(H,  "Convection  heat  transfer  coefficient,  h",  39, 

H_UNITS,  13,  17); 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  11,  18); 
end  if; 

GET_INPUT (T_AMBIENT,  "Ambient  Temperature",  19, 
T_UNITS,  5,  19); 

GET_INPUT(T_WALL,  "Wall  Temperature",  16, 
T_UNITS,  5,  20); 

TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN); 
TTY.GET  (PAUSE,  CHAR); 


Calculations  (Assume  Tip  is  Insulated)  and  Length  >>  Width 

PERIMETER  :=  2 . 0 * LENGTH/ CONVERT_DI ST; 

AREA  :=  (WIDTH/CONVERT_DIST)* (LENGTH/CONVERT_DIST) ; 

M  :=  SQRT( (H* PERIMETER) / (K*AREA) ) ; 

DELTA_T  :=  T_WALL-T_AMBIENT; 

Q  :=  K*AREA*M*DELTA_T*TANH(M*HEIGHT/CONVERT_DIST) ; 

EFFICIENCY  :  =  (TANH (M* HEIGHT/ CONVERT_DI ST) ) 

/ (M*HEIGHT/CONVERT_DIST) ; 

T  TIP  :=  T  AMBIENT+ (DELTA  T/COSH (M*HEIGHT/CONVERT  DIST) ) ; 


Outputs 


FINOPT_PICTURES . OUTPUT_MSG; 

TTY.PUT  (  5,  36,  "  Inputs  ",  BRIGHT_WHITE,  GREEN] 

TTY.PUT  (  7,  1,  "Length  of  the  rectangular  fin 

YELLOW,  BLACK) ; 

PUT  (NUMBER_OUT,  LENGTH,  4,  3); 

TTY.PUT  (  7,  48,  NUMBER_OUT,  YELLOW,  BLACK); 

TTY.PUT  (  7,  59,  LENGTH_UNITS,  YELLOW,  BLACK); 

TTY.PUT  (  8,  1,  "Height  of  the  rectangular  fin 

YELLOW,  BLACK) ; 

PUT  (NUMBER  OUT,  HEIGHT,  4,  3); 
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TTY.PUT  (8,  4  8 
TTY.PUT  (8,  59 
TTY.PUT  (9,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (9,  4  8 
TTY.PUT  (  9,  59 
TTY.PUT  (10,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (10,  4  8 
TTY.PUT  (10,  59 
TTY.PUT  (11,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (11,  4  8 
TTY.PUT  (11,  59 
TTY.PUT  (12,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (12,  4  8 
TTY.PUT  (12,  59 
TTY.PUT  (13,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (13,  48 


TTY.PUT 
TTY.PUT 
TTY.PUT 

YELLOW, 


(13,  59 
(15,  35 
(17,  1, 
BLACK)  ; 


PUT  (NUMBERJDUT 
TTY.PUT  (17,  4  8 
TTY.PUT  (17,  59 
TTY.PUT  (18,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (18,  4  8 
TTY.PUT  (19,  1, 
YELLOW,  BLACK) ; 
PUT  (NUMBERJDUT 
TTY.PUT  (19,  48 
TTY.PUT  (19,  59 
TTY.PUT  (23,  27 
TTY.GET  (PAUSE, 


NUMBERJDUT,  YELLOW,  BLACK) ; 
HEIGHTJJNITS,  YELLOW,  BLACK) ; 
"Width  of  the  rectangular  fin 

WIDTH,  4,  3) ; 

NUMBERJDUT,  YELLOW,  BLACK) ; 
WIDTHJJNITS,  YELLOW,  BLACK) ; 
"Convection  heat  transfer  coefficient,  h 

H,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
HJJNITS,  YELLOW,  BLACK)  ; 
"Thermal  conductivity  of  material,  k 

K,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
KJJNITS,  YELLOW,  BLACK) ; 
"Ambient  Temperature 

T_AMBIENT,  4,  3 )  ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
TJJNITS,  YELLOW,  BLACK) ; 
"Wall  Temperature 

T_WALL,  4,  3)  ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
TJJNITS,  YELLOW,  BLACK) ; 
"  Outputs  ",  BRIGHT_WHITE,  GREEN); 
"Heat  transferred  away  by  the  fin,  q 

Q,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
QJJNITS,  YELLOW,  BLACK) ; 
"The  fin  efficiency 

EFFICIENCY,  4,  3 ) ; 
NUMBERJDUT,  YELLOW,  BLACK) ; 
"The  temperature  at  the  tip 

TJTIP,  4,  3); 

NUMBERJDUT,  YELLOW,  BLACK) ; 
TJUNITS,  YELLOW,  BLACK) ; 

"  Press  any  key  to  continue  ",  BLUE,  CYAN) 
CHAR)  ; 


end  RECTANGULAR  NO  OPT; 


procedure  RECTANGULAR_GIVEN_VOL (UNITS 

INTEGER; 

CONVERT  J3I ST 
VOLUME 

FLOAT  ; 

VOLUMEJJNITS 
LENGTH 

FLOAT ; 

LENGTH  UNITS 


in 


:  in 

FLOAT ; 

:  in 

out 

:  in 

STRING; 

:  in 

out 

:  in 

STRING; 
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FLOAT  ; 

FLOAT  ; 

FLOAT ; 

FLOAT ; 

FLOAT ; 
FLOAT  ; 

FLOAT ; 

is 

NUMBER_OUT 
STRING (1. . 10) ; 

CHAR 

PAUSE 


HEIGHT 

HEIGHT_UNITS 
WIDTH 

WIDTH_UNITS 
H 

H_UNITS 
K 

K_UNITS 
T_AMBIENT 

T_WALL 

T_UNITS 

Q 

Q  UNITS 


PERIMETER,  AREA,  M,  EFFICIENCY, 
DELTA  T,  T  TIP,  AREA  PROFILE 


begin 


in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  out 

in  STRING; 
in  out 

in  STRING) 


CHARACTER; 
INTEGER; 

FLOAT; 


Inputs 


FINOPT_PICTURES . INPUT_MSG; 

GET_INPUT (VOLUME,  "Volume  of  the  rectangular  fin",  29, 

VOLUME_UNITS ,  4 ,  14); 

GET_INPUT (LENGTH,  "Length  of  the  rectangular  fin",  29, 

LENGTH_UNITS,  2,  15); 

if  (UNITS  =  2)  then 

GET_INPUT(H,  "Convection  heat  transfer  coefficient,  h",  39, 

H_UNITS,  19,  16) ; 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  17,  17); 
else 

GET_INPUT(H,  "Convection  heat  transfer  coefficient,  h",  39, 

H_UNITS,  13,  16) ; 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  11,  17); 
end  i  f ; 

GET_INPUT(T_AMBIENT,  "Ambient  Temperature",  19, 
T_UNITS,  5,  18); 
GET  INPUT (T  WALL,  "Wall  Temperature",  16, 
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T_UNITS,  5,  19); 

TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN); 

TTY.GET  (PAUSE,  CHAR); 


Calculations  (Assume  Tip  is  Insulated)  and  Length  >>  Width 

AREA_PROFILE  :=  (VOLUME/ (CONVERT_DIST+*3 ) ) 

/ ( LENGTH/ CONVERT_DI ST) ; 

WIDTH  :=  CONVERT  JDI ST* 0. 9977 

* ( (AREA_PROFILE**2) *H/K) ** (1.0/3.0) ; 

HEIGHT  :  =  CONVERT_DIST*l . 0023 

* (AREA_PROFILE*K/H) ** (1. 0/3. 0)  ; 

PERIMETER  :=  2 . 0*LENGTH/CONVERTJDIST; 

AREA  :=  (WI DTH/ CONVERT  JDI ST) * (LENGTH/ CONVERTJDI ST)  ; 

M  :=  SQRT( (H* PERIMETER) / (K*AREA) ) ; 

DELTA_T  :=  T_WALL-T_AMBIENT; 

Q  :=  K*AREA*M*DELTAJT*TANH(M*HEIGHT/CONVERTJDIST) ; 

EFFICIENCY  :=  (TANH (M*HEIGHT/CONVERTJDIST) ) 

/ (M* HEIGHT/ CONVERTJDI ST) ; 

T  TIP  :=  T  AMBIENT+ (DELTA  T/COSH (M*HEIGHT/CONVERT  DIST) ) ; 


Outputs 

FINOPT_PICTURES.OUTPUT_MSG; 

TTY.PUT  (  5,  36,  "  Inputs  ",  BRIGHT_WHITE,  GREEN); 

TTY.PUT  (  7,  1,  "Volume  of  the  rectangular  fin 

YELLOW,  BLACK) ; 

PUT  (NUMBER_OUT,  VOLUME,  4,  3); 

TTY.PUT  (  7,  48,  NUMBERjDUT,  YELLOW,  BLACK); 

TTY.PUT  (  7,  59,  VOLUME_UNITS,  YELLOW,  BLACK); 

TTY.PUT  (  8,  1,  "Length  of  the  rectangular  fin 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  LENGTH,  4,  3); 

TTY.PUT  (  8,  48,  NUMBER_OUT,  YELLOW,  BLACK); 

TTY.PUT  (  8,  59,  LENGTH_UNITS,  YELLOW,  BLACK); 

TTY.PUT  (  9,  1,  "Convection  heat  transfer  coefficient,  h 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  H,  4,  3); 

TTY.PUT  (  9,  48,  NUMBER_OUT,  YELLOW,  BLACK); 

TTY.PUT  (  9,  59,  HJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (10,  1,  "Thermal  conductivity  of  material,  k 

YELLOW,  BLACK) ; 

PUT  (NUMBER_OUT,  K,  4,  3); 

TTY.PUT     (10,     48,    NUMBERJDUT,    YELLOW,    BLACK); 

TTY.PUT     (10,     59,     KJJNITS,    YELLOW,    BLACK); 

TTY.PUT  (11,  1,  "Ambient  Temperature 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  T_AMBIENT,  4,  3); 

TTY.PUT  (11,  4  8,  NUMBERjDUT,  YELLOW,  BLACK); 

TTY.PUT     (11,     59,     TJJNITS,     YELLOW,     BLACK); 

TTY.PUT  (12,  1,  "Wall  Temperature 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  T_WALL,  4,  3); 

TTY.PUT  (12,  48,  NUMBER  OUT,  YELLOW,  BLACK); 
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TTY.PUT     (12,     59,     TJJNITS,     YELLOW,     BLACK); 

TTY.PUT  (14,  35,  "  Outputs  ",  BRIGHT_WHITE,  GREEN); 

TTY.PUT  (16,  1,  "Optimum  height  of  the  rectangular  fin 

YELLOW,  BLACK) ; 

PUT  (NUMBER_OUT,  HEIGHT,  4,  3); 

TTY.PUT  (16,  48,  NUMBER_OUT,  YELLOW,  BLACK); 

TTY.PUT     (16,     59,     HEIGHTJJNITS,     YELLOW,     BLACK); 

TTY.PUT  (17,  1,  "Optimum  width  of  the  rectangular  fin 

YELLOW,  BLACK) ; 

PUT  (NUMBER_OUT,  WIDTH,  4,  3); 

TTY.PUT     (17,     48,     NUMBERJDUT,     YELLOW,     BLACK); 

TTY.PUT  (17,  59,  WIDTH_UNITS,  YELLOW,  BLACK); 

TTY.PUT  (18,  1,  "Heat  transferred  away  by  the  fin,  q 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  Q,  4,  3); 

TTY.PUT  (18,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (18,  59,  Q_UNITS,  YELLOW,  BLACK); 

TTY.PUT  (19,  1,  "The  fin  efficiency 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  EFFICIENCY,  4,  3); 

TTY.PUT  (19,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (20,  1,  "The  temperature  at  the  tip 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  T_TIP,  4,  3); 

TTY.PUT  (20,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (20,  59,  TJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN) ; 

TTY.GET  (PAUSE,  CHAR) ; 

end  RECTANGULAR  GIVEN  VOL; 


procedure  RECTANGULAR_GIVEN_Q (UNITS 

CONVERT  JDI  ST 
LENGTH 

FLOAT ; 

LENGTHJJNITS 
HEIGHT 

FLOAT  ; 

HEIGHT_UNITS 
WIDTH 

FLOAT ; 

WIDTH_UNITS 
H 

FLOAT ; 

H_UNITS 
K 

FLOAT ; 

K_UNITS 
T_AMBIENT 

FLOAT ; 

T_WALL 

FLOAT  ; 

T_UNITS 

Q 

FLOAT  ; 


in  INTEGER; 
in  FLOAT; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  STRING; 
in  out 

in  out 

in  STRING; 
in  out 
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Q_UNITS  :  in  STRING) 

is 

NUMBER_OUT  : 

STRING (1.  .10)  ; 

CHAR  :  CHARACTER; 

PAUSE  :  INTEGER; 

PERIMETER,  AREA,  M,  EFFICIENCY, 

DELTA_T,  T_TIP  :  FLOAT; 

begin 


Inputs 

FINOPT_PICTURES . INPUT_MSG; 
if  (UNITS  =  2)  then 

GET_INPUT(Q,  "Heat  transferred  away  by  the  fin,  q",  35, 

Q_UNITS,  6,  14) ; 
else 

GET_INPUT(Q,  "Heat  transferred  away  by  the  fin,  q",  35, 

Q_UNITS,  1,  14)  ; 
end  i  f ; 
GET_INPUT (LENGTH,  "Length  of  the  rectangular  fin",  29, 

LENGTH_UNITS,  2,  15); 
if  (UNITS  =  2)  then 

GET_INPUT(H,  "Convection  heat  transfer  coefficient,  h",  39, 

H_UNITS,  19,  16) ; 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  17,  17); 
else 

GET_INPUT(H,  "Convection  heat  transfer  coefficient,  h",  39, 

H_UNITS,  13,  16); 

GET_INPUT(K,  "Thermal  conductivity  of  material,  k",  35, 

K_UNITS,  11,  17); 
end  if; 

GET_INPUT(T_AMBIENT,  "Ambient  Temperature",  19, 
T_UNITS,  5,  18)  ; 

GET_INPUT(T_WALL,  "Wall  Temperature",  16, 
T_UNITS,  5,  19)  ; 

TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN); 
TTY.GET  (PAUSE,  CHAR); 


Calculations  (Assume  Tip  is  Insulated)  and  Length  >>  Width 

WIDTH  :=  CONVERT_DIST* (0.6321/ (H*K) ) 

* (  (  (Q/ ( LENGTH/ CONVERT_DI ST)  ) / (T_WALL-T_AMBIENT)  ) **2)  ; 

HEIGHT  :=  CONVERT_DIST*0 . 7978 

* (Q/ (LENGTH/CONVERT_DIST) ) / (H* (T_WALL-T_AMBIENT) ) ; 

PERIMETER  :=  2 . 0*LENGTH/CONVERT_DIST; 

AREA  :=  (WI DTH/CONVERT_DI ST) * (LENGTH/ CONVERT_DI ST) ; 

M  :=  SQRT( (H* PERIMETER) / (K*AREA) ) ; 
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DELTA JT    :=    T_WALL-T_AMBIENT; 

Q    :=    K*AREA*M*DELTAJT*TANH(M*HEIGHT/CONVERTJDIST) ; 

EFFICIENCY  :=  (TANH (M*HEIGHT/CONVERT_DIST) ) 

/ (M*HEIGHT/CONVERT_DIST) ; 

T  TIP  :  =  T  AMBIENT+ (DELTA  T/COSH (M*HEIGHT/CONVERT  DIST)); 


Outputs 

FINOPT_PICTURES . OUTPUT_MSG; 

TTY.PUT  (  5,  36,  "  Inputs  ",  BRIGHT_WHITE,  GREEN); 

TTY.PUT  (  7,  1,  "Heat  transferred  away  by  the  fin,  q 

YELLOW,  BLACK) ; 

PUT  (NUMBER_OUT,  Q,  4,  3 ) ; 

TTY.PUT  (  7,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (  7,  59,  Q_UNITS,  YELLOW,  BLACK); 

TTY.PUT  (  8,  1,  "Length  of  the  rectangular  fin 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  LENGTH,  4,  3); 

TTY.PUT  (  8,  48,  NUMBER_OUT,  YELLOW,  BLACK); 

TTY.PUT     (    8,     59,     LENGTHJJNITS,     YELLOW,     BLACK); 

TTY.PUT  (  9,  1,  "Convection  heat  transfer  coefficient,  h 

YELLOW,  BLACK) ; 

PUT  (NUMBER_OUT,  H,  4,  3 ) ; 

TTY.PUT  (  9,  48,  NUMBER_OUT,  YELLOW,  BLACK); 

TTY.PUT  (  9,  59,  H_UNITS,  YELLOW,  BLACK); 

TTY.PUT  (10,  1,  "Thermal  conductivity  of  material,  k 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  K,  4,  3); 

TTY.PUT  (10,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (10,  59,  KJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (11,  1,  "Ambient  Temperature 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  T_AMBIENT,  4,  3); 

TTY.PUT  (11,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (11,  59,  TJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (12,  1,  "Wall  Temperature 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  T_WALL,  4,  3); 

TTY.PUT  (12,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (12,  59,  TJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (14,  35,  "  Outputs  ",  BRIGHT_WHITE,  GREEN); 

TTY.PUT  (16,  1,  "Optimum  height  of  the  rectangular  fin 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  HEIGHT,  4,  3); 

TTY.PUT  (16,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (16,  59,  HEIGHTJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (17,  1,  "Optimum  width  of  the  rectangular  fin 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  WIDTH,  4,  3); 

TTY.PUT  (17,  48,  NUMBERJDUT,  YELLOW,  BLACK); 

TTY.PUT  (17,  59,  WIDTHJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (18,  1,  "The  fin  efficiency 

YELLOW,  BLACK) ; 

PUT  (NUMBERJDUT,  EFFICIENCY,  4,  3); 

TTY.PUT  (18,  4  8,  NUMBER  OUT,  YELLOW,  BLACK); 
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TTY.PUT  (19,  1,  "The  temperature  at  the  tip 

YELLOW,  BLACK) ; 

PUT  (NUMBER_OUT,  T_TIP,  4,  3 )  ; 

TTY.PUT  (19,  48,  NUMBER_OUT,  YELLOW,  BLACK); 

TTY.PUT  (19,  59,  TJJNITS,  YELLOW,  BLACK); 

TTY.PUT  (23,  27,  "  Press  any  key  to  continue  ",  BLUE,  CYAN); 

TTY.GET  (PAUSE,  CHAR); 

end  RECTANGULAR_GIVEN_Q; 

end  FINOPT  SINGLE; 
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